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ABSTRACT 


A  software  metric  is  a  tool  that  should  be  used  in  the  development  of  quality 
software.  The  properties  that  define  good  software  vary  but  encompass  reliability, 
complexity,  efficiency,  testability,  understandability,  and  modifiability.  The 
Henry  metric  measures  the  complexity  of  data  flow  within  a  module  and  the 
complexity  of  inter-module  communication.  This  thesis  is  an  extension  of  a 
previous  thesis  titled  ’AdaMeasure’  that  calculated  the  Halstead  metric.  The 
present  design  and  implementation  is  a  tool  that  computes  the  Halstead  and 
Henry  metrics  for  Ada  programs. 
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I.  INTRODUCTION  AND  BACKGROUND 


A.  DEFINITIONS 

A  metric  is  an  assignment  of  indices  of  merit  to  programs  in  order  to  evaluate 
and  predict  software  quality  [Ref.l:  p.6-2].  The  qualities  to  measure  are,  at 
present,  subjectively  chosen  but  in  general  encompass  reliability,  complexity, 
efficiency,  testability,  understandability  and  modifiablity  [Ref.2:  p.1-3].  The 
predictive  nature  of  a  metric  allows  it  to  be  used  to  say  "when"  to  proceed  to  the 
next  phase  in  the  software  life  cycle  model.  Another  aspect  of  the  predictive 
nature  of  a  metric  would  be  for  it  to  provide  management  with  a  rough  guess  of 
the  outcome  of  a  particular  path  of  development,  provide  an  acceptance  index,  or 
provide  an  immediate  feedback  loop  to  the  implementors  while  in  the  unit  test 
phase  [Ref.2:  p.5].  How  the  metric  is  implemented  will  dictate  its  primary  use 
from  the  above  selections. 

B.  SALLIE  HENRY’S  METRIC 

Sallie  Henry's  metric  attempts  to  measures  data  flow  complexity.  It  is 
intended  to  be  used  as  a  tool  to  establish  a  module’s  quality  or  to  enforce 
particular  modularization  standards  [Ref.2:  p.6].  She  argues  that  quality  control 
of  software  is  the  result  of  software  reliability  and  that  reliability  comes  about 
through  well  designed  modules  that  do  not  have  complex  data  flow. 


The  hierarchical  structure  of  a  program  should  be  layered  modules.  Each 
layer  should  function  as  a  virtual  machine  and  be  composed  of  modules.  This 
approach  to  modularization  gives  each  module  characteristics  that  can  be 
exploited  so  that  each  module  can  be  independently  developed,  more  easily 
comprehended,  assembled  so  that  the  system  is  more  stable  and  designed  so  that 
the  system  is  a  great  deal  more  flexible.  This  schema  of  development  extols  two 
primary'  tenets  that  are  stated  by  D.  Parnas  in  [Ref.3:  p.339]  and  quoted  here: 

.  .  .  provide  the  user  of  a  module  with  all  the  information  to  use  the  module 
correctly,  and  nothing  more.  Provide  the  implementor  of  the  module  with  all  the 
information  to  implement  the  module  correctly,  and  nothing  more. 

All  this  implies  that  a  good  design  will  have  high  module  cohesion,  good 
module  strength  and  low  module  coupling  [Ref.4:  p.330]. 

C.  INFORMATION  FLOW 

Information  flow  complexity  is  a  twofold  process  the  flow  of  data  within  a 
module  and  the  flow  of  data  external  to  the  module.  The  measurement  of  these 
criteria  is  dependent  on  two  premises:  (l)  that  there  is  a  capability  to  measure 
this  data  and  (2)  the  data  obtained  can  be  used  to  evaluate  software  design.  The 
seemingly  obvious  nature  of  the  first  premise  runs  into  problems  in 
implementation  and  applicability,  but  if  it  is  accepted  that  the  first  deficiency  can 
be  surmounted,  then  the  second  part  remains  to  be  shown  as  reasonable. 
Applicability  is  a  debated  concept  that  is  still  not  resolved.  It  revolves  around 
whether  the  data  gathered  is  related  to  the  property  under  consideration.  It  is 


further  exacerbated  by  the  human  element  that  defines  an  environmental  bubble 
and  then  programs  within  this  bubble.  How  to  measure  this  bubble  without 
destroying  its  foundations  is  the  problem  of  measuring  human  performance.  The 
problem  of  what  to  measure  is  the  problem  of  applicability. 

The  more  specific  the  metric’s  application  the  less  the  applicability  property  is 
questioned,  but,  the  problem  of  "what"  to  measure  is  still  not  clearly  defined. 
This  thesis  will  not  argue  the  applicability  question  because  the  approach  of  Sallie 
Henry  is  reasonable  and  the  results  obtained  from  the  metric  appear  to  adequately 
encompass  the  area  of  data  flow  complexity.  If  the  reader  will  accept  that  the 
properties  measured  are  related  to  data  flow  complexity  then  the  results  obtained 
are  also  related  to  complexity. 

The  second  premise  is  even  more  thorny.  If  the  data  is  obtained  and  it  seems 
reasonable  can  it  be  shown  to  be  truly  the  result  of  the  property  under 
measurement?  Any  human  endeavor  will  never  be  clearly  and  objectively 
quantified.  Thus,  the  answer  to  the  efficacy  of  the  second  premise  is,  proceed  and 
maybe  the  amassing  of  results  will  eventually  show  the  correlation. 

The  above  analysis  is  far  from  a  convincing  argument  to  utilize  metrics  to 
measure  programs  however  as  this  thesis  was  developed  the  applicability  of 
measuring  data  flow  complexity  in  order  to  determine  code  quality  became  more 
apparent  although  not  proven.  Nothing  will  be  learned  if  no  attempt  is  made  to 
measure  data  flow  complexity.  This  thesis  attempts  to  measure  data  flow 


complexity  in  the  light  of  learning  and  the  hope  that  the  data  gathered  will  prove 
the  applicability  of  the  process. 

Consider  first  a  simple  module:  a  procedure  in  a  structured  language.  Each 
procedure  defines  certain  relations  between  itself  and  other  procedures.  These 
include: 

-  formal  input/output  parameters 

-  function  call  input  and  return  data 

-  local  data  structures 

-  global  data  structures 

These  relations  will  generate  a  particular  information  flow  structure  similar  to 
a  hierarchical  tree  structure.  This  tree  structure  is  peculiar  to  the  procedure  and 
will  reflect  its  complexity  of  structure.  It  is  reasonable  to  analyze  this  tree  to 
determine  derived  calls,  local  data  flow  and  global  data  flow. 

D.  RELATIONS 

Some  definitions  are  now  in  order.  Global  data  flow  exists  from  procedure  1 
to  procedure  2  if  procedure  1  deposits  data  in  the  global  data  structure  and  then 
procedure  2  reads  that  data.  Local  data  flow  comprises  direct  and  indirect  species. 
A  local  direct  flow,  from  procedure  1  to  procedure  2,  results  when  procedure  I 
calls  2  passing  parameters.  An  indirect  data  exchange  from  procedure  1  to 
procedure  2  exists  if  procedure  2  calls  1,  which  returns  a  value  used  by  2,  or 
procedure  3  calls  both  1  and  2,  and  passes  an  output  value  from  1  to  2. 
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Figure  1  represents  data  flow  from  procedure  to  procedure  or  from  a 
procedure  into  a  data  structure.  Parameter  passing  within  this  scheme  is 
represented  by  the  arrows.  A  hidden  data  exchange  through  modification  of  a 
variable  is  represented  by  the  dashed  flow  arrow.  Module  A  retrieves  data  from 
the  data  structure  then  calls  B  passing  a  parameter;  module  B  updates  the  data 
structure.  C  calls  D  passing  a  parameter.  D  calls  E  with  a  parameter  and  E 
returns  a  value  to  D  which  is  used  by  D  and  passed  to  F.  The  function  of  F 
updates  the  data  structure. 


The  direct  data  flows  represented  are: 
A  ->  B,  C  ->  D,  D  ->  E,  D  ->  F. 


These  are  simply  the  calls. 

The  indirect  local  flows  are: 

E  ->  D,  F  ->  A. 

The  global  flows  are: 

B  ->  A,  F  ->  A. 

Both  B  and  F  update  the  data  structure  while  A  retrieves  data  from  the 
structure. 

The  implications  of  data  flow  for  procedure  and  function  calls  will  be 
discussed  later  with  derived  calls. 

The  calling  notation  A(x)  ->  B()  or  A()  ->  B(x)  is  used  to  connote  a  data 
flow  transmission  from  A  to  B  either  by  direct  parameter  passing  or  side-effect.  In 
the  first  condition  the  variable  x  is  returned  to  procedure  A  and  in  the  second 
example  the  variable  x  is  sent  to  B.  A  condition  that  leads  the  Henry  metric  to 
not  detect  a  procedure  or  function  call’s  data  flow  (labeled  a  missed  call)  is  for  the 
condition  where  A(x)  ->  B()  and  variable  x  is  a  returned  value  from  B  not 
modified  within  procedure  A’s  code.  An  example  of  this  would  be  a  conditional 
statement  within  A  that  depends  on  the  returned  value  from  function  B.  The 
data  flow  detection  problem  leads  to  two  key  ideas,  effective  parameters  and  data 
utilization. 

Calls  that  are  detected  by  information  flow  analysis  are  dependent  upon  how 
the  information  is  passed.  If  the  conditions  A()  ->  B(x)  exists  where  parameter  x 
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is  passed  to  B  or  condition  A()  ->  B()  where  no  parameters  are  exchanged  then 
the  calls  will  not  be  missed  if  B  receives  information  in  one  of  the  following 
formats: 

-  a  formal  parameter 

-  a  data  structure 

-  a  constant 

-  an  actual  parameter  from  a  third  procedure  whose  value  is 

modified  within  A  prior  to  the  call  to  B 

An  effective  parameter  will  define  the  call  structure  in  such  a  way  that  the 
data  flow  will  not  be  missed.  It  is  a  parameter  that  receives  information  from  one 
of  the  calling  procedure's  parameters,  a  data  structure,  a  constant,  or  a  third 
procedure’s  returned  actual  parameter  that  is  modified  within  the  calling  modules 
structure.  What  the  effective  parameter  implies  is  that  side-  effect  data  flow  is 
difficult  to  effectively  analyze.  Another  construct  that  will  cause  a  missed  call  is 
the  condition  A(z)  ->  B(x)  where  B  is  a  function.  This  condition  means  A  uses 
data  from  B.  A  uses  data  from  B  if  (l)  B  updates  a  data  structure  used  by  A;  (2) 
A  receives  a  constant  from  B;  (3)  A  receives  an  output  parameter  from  B;  or  (4)  B 
updates  a  return  value  to  A.  Thus  information  flow  will  be  detected  if  A  passes  B 
an  effective  parameter  or  if  A  uses  data  from  B. 

Appendix  A  gives  all  the  rules  that  are  applicable  to  the  data  flow 
relationships.  Some  notation  is  now  needed  to  simplify  the  descriptions  that 


follow. 


The  form  of  a  relation  is  L  <-  Rl,  R2,  R3,...Rn;  where  L  is  the  resultant  from 


the  application  of  the  relationships  Rl,  R2,  ...  Rn.  An  example  would  be: 

A.D3  <-  A.Dl,  A.D2,  A.constant. 

This  series  notation  represents  the  code  line  that  begins  with  D3  below. 

A() 

begin 

D3  :=  Dl  +  D2  +  1; 
end  procedure  A; 

In  words,  the  A.D3  means  procedure  A  updates  data  structure  D3  by  first 
applying  relationship  A.Dl  then  A.D2  and  finally  A.constant.  This  format  shows 
that  data  flows  into  procedure  A's  data  structure  D3  from  the  noted  relationships. 
A  thorough  discussion  of  the  notation  for  the  relations  is  given  in  Appendix  A  but 
a  short  discussion  follows  to  aide  in  the  immediate  understanding  of  Figure  2. 

The  notation  B.l.I  defines  the  first  input  parameter  in  the  actual  parameter 
list  of  procedure  B  and  an  O  would  refer  to  an  output  parameter.  All  possible 
data  flow  paths  are  considered  even  if  a  B.l.I  parameter  is  not  an  input 
parameter.  Thus,  if  procedure  B  has  an  output  actual  parameter  in  position  B.l 
and  the  Henry  metric  attempts  to  analyze  this  parameter  as  an  input  flow  an 
error  condition  would  result  from  the  attempted  evaluation  (depicted  as 
B. ERR  OR).  B.NULL  means  that  no  relationship  exits  for  this  parameter  or  that 
there  is  no  data  flow  into  or  out  of  the  parameter  being  considered. 


Relations  Set 


A1  B.l.I  <-  A.Dl,  A. CONSTANT 
A2  B.2.I  <-  A.D2 
Bl  B.1.0  <-  B.NULL 
B2  B.2.0  <-  B.NULL 
B3  B.D3  <-  B.l.I,  B.2.I 

The  relation  sets  were  derived  by  looking  at  the  data  flow  into  and  out  of 
procedure  A.  That  is,  since  procedure  A  has  no  parameters  there  can  only  be 
local  data  flows  into  or  out  of  the  procedure.  These  flows  are  described  in  terms 
of  the  procedure  call  to  B.  B.l.I  stands  for  procedure  B's  first  input  parameter. 
This  parameter  is  fed  from  procedure  A's  data  structure  Dl  and  a  constant. 
Analyzing  procedure  B’s  second  input  parameter  yields  the  A2  relationship. 
Relationship  Bl  describes  the  first  parameter  in  procedure  B  as  an  output 
parameter  to  procedure  A  that  receives  no  data  for  transfer.  Relationship  B3 
describes  how  the  two  input  parameters  to  procedure  B  constitute  the  data  flow 
to  this  data  structure. 

The  data  flow  analysis  deals  primarily  with  the  analysis  of  parameters  which 
are  direct  data  flow  and  indirect  data  flow  as  defined  above.  Modifying  Figure  2 
and  incorporating  some  local  variables  will  illustrate  some  more  data  flow  analysis 
techniques  as  seen  in  Figure  3. 


15 


Code 

A() 

begin 

X  :=  D1  +  1; 
Y  :=  D2; 
B(X,Y) 
end; 


B(P,Q) 

begin 
R:=Q; 
C(P,R,S); 
D3  :=  S; 
end; 


C(I,J,K) 

begin 

K  :=  I  +  J; 
J  :=  J  +  1; 

end; 


16 


Relation  Set 


Al,  A2  same. 

Bl  B.l.O  <-  C.1.0 
B2  B.2.0  <-  B.NULL 
B3  C.l.I  <-  B.l.I 
B4  C.2.I  <-  B.2.I 
B5  C.3.I  <-  B. ERROR 
B6  B.D3  <-  C.3.0 


Cl  C.l.I  <-  C.NULL 

C2  C.2.0  <-  C.2.I,  C. CONSTANT 

C3  C.3.0  <-  C.l.I,  C.2.I 

In  the  relation  set  Bl  receives  data  from  procedure  C’s  output  parameter.  B2 
is  the  same.  B3  through  B5  describe  the  parameter  list  of  procedure  C.  However 
Bo  denotes  an  error  or  a  condition  that  is  not  allowed.  That  is,  the  data  direction 
was  in  error  as  variable  S  is  an  output  from  procedure  C  as  indicated  by  relation 
B6.  It  should  be  noted  that  this  relation  set  building  considers  all  possible  data 
flow  paths  without  regard  to  the  possibility  that  the  parameters  could  be  assigned 
only  particular  directions  as  Ada  formal  parameters  are.  Figure  4  shows  the  effects 
of  a  function  call. 

Code 

A() 

begin 

X  :=  D1  +  1; 

Y  :=  F(X); 

B(X.Y) 

end; 
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Figure  4.  Data  Flow  With  Function  Call 


F(M)  return  integer; 
begin 

N  :=  D2  *  M; 
return  N; 
end; 


Relation  Sets  are  changed  as  follows: 

A1  F.l.I  <-  A.Dl,  A. CONSTANT 
A2  B.l.I  <-  A.Dl,  A. CONSTANT,  F.1.0 
A3  B.2.I  <-  F.O 

FI  F.1.0  <-  F.NULL 
F2  F.O  <-F.D2,  F.l.I 

Relation  A1  has  changed  to  reflect  the  analysis  of  the  function  call  to  F.  The 
input  to  the  function  call  is  analyzed  as  well  as  its  output  and  any  possible 
modification  of  its  input  parameter.  This  analysis  can  be  seen  to  cover  all 
possibilities  of  hidden  data  transfers  except  the  missed  calls  described  earlier. 
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E.  INFORMATION  FLOW  STRUCTURE 


Once  the  relation  set  has  been  built  the  relations  are  sorted  alphabetically  and 
stored  for  future  use  in  the  Information  Flow  Structure  (IFS).  A  recursive 
algorithm  is  employed  to  build  the  information  tree  structure  for  the  flow 
analysis.  The  IFS  is  then  analyzed  to  find  the  derived  calls,  the  local  flows  and, 
finally,  the  global  flows. 

The  IFS  will  have  leaves  that  are  data  structures;  the  root  is  the  initial  call 
from  the  highest  level  procedure.  Each  node  of  the  tree  will  have  the  relational 
form  of  X.DS,  X.O.  X.k.I,  or  X.k.O.  See  Appendix  A  for  all  the  possibilities  of 
derived  calls.  The  local  flows  are  described  in  Appendix  A  as  derived  calls.  The 
global  flows  for  a  particular  data  structure  are  all  the  possible  paths  from  leaf 
elements  of  the  form  A.DS  to  the  root. 

F.  INDICES  OF  MERIT 

The  calculations  of  the  indices  of  merit  use  the  idea  that  the  complexity  of  a 
module  comprises  the  complexity  of  the  code  plus  the  complexity  of  the 
connections  of  the  code  to  other  modules.  The  formula  describing  the  complexity 
of  a  module  is 

Complexity  =  length  *  (fan-in  *  fan-out)  *  'code  index. 

Length  is  defined  as  the  number  of  executable  statements.  The  expression 
fan-in  *  fan-out  represents  all  the  combinatorial  possibilities  for  each  input  to 
produce  an  output.  The  code  index  is  an  exponent  that  represents  the  code 


difficulty.  Nominal  code  difficulty  for  operating  systems  is  2.  This  index  needs 
more  data  for  other  types  of  programming. 

The  purpose  of  this  computation  is  to  produce  comparative  numbers  of  merit 
that  point  out  and  isolate  specific  areas  within  the  code  that  have  the  potential 
for  problems.  A  high  fan-in/fan-out  implies  a  large  interconnection  to  outside 
modules.  This  leads  to  the  assessment  that  the  code  in  question  is  most  likely  not 
properly  modularized  or,  more  succinctly,  that  the  code  has  more  than  one 
function.  The  other  form  of  data  flow'  is  global  data  flow  to  data  structures.  It  is 
calculated  as  follows: 

Global  flow  =  write  *  (read  +  read  write)  + 

read  w’rite  *  (read  +  read  write  -  1) 

The  term  w'rite  refers  to  a  change  to  the  data  within  the  structure  through  an 
assignment  statement  and  a  read  is  an  access  to  the  data  structure  that  does  not 
change  the  data.  The  identifier  read-write  is  the  sum  of  reads  and  writes.  A  high 
global  flow  implies  overworked  data  structures  and  represents  a  stress  point  in  the 
program.  A  stress  point  is  the  weak  link  in  the  chain.  The  presence  of  high  flow 
is  not  automatically  an  indicator  of  poor  programming  but  it  is  a  juncture  in  the 
program  that  is  highly  susceptible  to  problems.  Once  the  metric  has  assembled  all 
the  different  components,  such  as  fan-in  or  global  reads  and  calculated  the  above 
equations  it  performs  module  analysis. 


G.  MODULE  ANALYSIS 

Module  analysis  revolves  on  the  outputs  of  each  of  the  above  equations  and 
their  respective  components.  The  numbers  generated  are  symptomatic  of  certain 
problems.  The  analysis  is  first  conducted  with  the  equations  output  defining  the 
particular  categories  of  problems  then  the  components  refine  the  analysis. 
Examples  of  the  first  level  of  analysis  follow: 

A  high  global  flow  calculation  implies  an  overworked  data  structure.  These 
structures  are  overworked  because  of  the  need  for  continuous  accessing.  This 
implies  a  better  decentralized  design  is  in  order,  that  is,  distribute  the  information 
to  the  procedures  that  it  serves.  A  high  module  complexity  index  indicates  not 
enough  modularization.  This  number  is  to  be  treated  with  respect  but  should  be 
analyzed  in  context  with  global  data  flow.  Together  these  indices  represent  the 
in's  and  out’s  of  the  modules  data.  A  corrective  action  based  solely  on  complexity 
should  be  avoided.  A  procedure  should  be  analyzed  for  singularity  of  purpose  and 
non-duplication  within  a  module.  Simply  put,  a  procedure  should  be  in  one  place, 
have  one  purpose  and  have  minimal  external  references.  These  properties  are 
quantified  by  the  Complexity  and  Global  flow  metric  numbers. 

Next  the  interim  cases  where  one  aspect  is  high  and  the  other  component  is 
low.  A  module  with  high  global  flow  and  low  complexity  shows  poor  internal 
structure.  This  structure  will  most  likely  have  excessive  numbers  of  procedures 
with  extensive  use  of  data  structures  outside  the  module.  Low  global  flow  with 
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high  module  complexity  implies  either  poor  decomposition  into  procedures  or 
extremely  complicated  interface. 

H.  INTERFACE  MEASUREMENTS 

Interface  between  procedures  comprise  protocol  interface,  coupling  and 
binding  of  procedures.  Protocol  interface  from  module  A  to  B  is  defined  as  those 
procedures  that  are  not  in  any  other  module  and  which  receive  information  from 
A  for  passing  to  B.  Binding  is  the  sensitivity  measure  between  modules,  that  is, 
tightly  bound  modules  have  a  high  sensitivity.  A  tightly  bound  module  is 
difficult  to  change  without  adversely  affecting  the  other  module.  Coupling  is  the 
strength  of  binding.  Figure  5  depicts  the  interface  structure. 


Protocol  interface,  since  it  is  not  symmetrical  between  procedures,  requires 
the  construction  of  a  tabular  cross  reference  table  with  all  possible  procedures  on 
both  the  X  and  Y  axes.  The  internals  of  the  table  are  the  data  flow  complexity 
indexes  for  one  way  transmission  from  each  procedure  to  the  other. 

Figure  5  shows  that  binding  is  sectioned  into  five  components;  the  number  of 
procedures  sending  information  from  A  (XSP),  the  number  of  procedures 
receiving  information  from  B  (XRP),  the  number  of  procedures  in  the  protocol 
interface  (XPI).  the  number  of  paths  to  the  interface  from  A  (SPI),  and  the 
number  of  paths  from  the  interface  to  B  (PIR).  The  Direct  Flow  paths 
represented  as  the  outer  loops  are  data  transmissions  without  the  interim 
procedures.  [Ref.2:  p.85]  lists  the  binding  calculations  as  follows: 

Binding  =  (XSP  +  XPI)  *  SPI  +  (XPI  +  XRP)  4  PIR 

The  term  (XSP  4-  XPI)  *  SPI  is  the  coupling  strength. 

All  the  direct  path  binding  is  calculated  by 

DF  Binding  =  (XSP  +  XRP)  *  DF 

Modules  that  are  tightly  bound  are  extremely  difficult  to  maintain  and 
modify.  This  difficulty  stems  from  their  lack  of  independence  and  the  "ripple 
effect"  of  changes  to  one  module  flowing  into  the  other. 


I.  THEORY  SUMMARY 


The  purpose  of  the  Henry  metric  is  to  provide  designers  and  implementors 
with  a  method  to  quantify  the  quality  of  the  code  that  they  are  developing.  The 
goal  is  to  produce  reliable  code  that  is  interconnected  in  as  logical  a  fashion  as 
possible.  Information  flow  complexity  produces  reliability  through  enforcement  of 
design  rules  that  lead  to  well  connected  code.  The  measurements  will  point  out 
lack  of  functionality,  improper  modularization,  poorly  designed  modules,  poorly 
designed  data  structures,  system  stress  points,  inadequate  refinement,  strength  of 
binding,  modifiability,  missing  levels  of  abstraction  and.  will  produce  comparative 


indices  to  assess  changes. 


II.  DESIGN  CRITERIA 


A.  INTRODUCTION 

The  design  of  the  implementation  of  the  Henry  metric  was  a  two  step  process. 
First,  a  thorough  understanding  of  the  previous  work  by  Neider  and  Fairbanks 
[Ref.5:  pp. 1-164]  was  undertaken  to  determine  what  data  were  available  for 
importation  into  the  Henry  metric.  The  intention  of  the  study  and  the  basic 
design  issues  are  (1)  modify  the  output  of  the  parser  portion  of  their  thesis  to 
include  the  necessary  data  passes  to  the  Henry  metric  (2)  to  initially  analyze  only 
the  Ada  package  as  a  unit  (3)  encapsulate  as  much  of  the  Henry  metric  into  one 
Ada  package  as  possible  and  (4)  calculate  the  necessary  Henry  metric  numbers 
transparently  to  the  user  but  present  the  user  with  an  output  that  is  easily 
understood. 

The  underlying  premise,  of  this  program,  is  that  the  code  presented  for 
analysis  has  been  successfully  compiled.  If  the  code  does  not  compile  and  is 
presented  to  the  parsers  it  will  most  likely  fail  to  parse  but  in  the  event  it  does 
escape  detection  it  will  be  erroneously  analyzed. 

The  design  criteria  of  encapsulation  of  the  Henry  metric  was  modified  during 
the  implementation  due  to  the  unwieldy  length  of  the  code.  The  division  yielded 
three  packages:  one  that  holds  all  the  global  data,  another  for  the  analysis  portion 
and  a  third  for  the  interface  to  the  user.  Although  this  division  violated  one  of 


the  basic  design  issues  it  was  necessary  in  order  to  achieve  solid  data  transfers 


between  the  Naval  Post  Graduate  School  computer  and  the  Naval  Weapons 
Station  computers. 

While  the  level  of  what  was  available  from  the  parsers  was  being  determined 
the  data  structures  of  the  Henry  metric  were  being  layed  out.  The  data  structures 
and  data  gathering  procedures  for  the  Henry  metric  were  designed  to  be  as  simple, 
yet  as  flexible  as  possible.  Once  the  layout  of  the  linked  list  data  structure  to 
hold  the  raw  information  for  the  Henry  metric  was  decided  upon,  the  tedious 
procedure  of  inserting  the  appropriate  calls  to  the  Henry  package  was  undertaken. 
Basically,  this  reduced  to  exercising  all  the  possible  data  flow  characteristics  from 
function  or  procedure  calls  that  the  Henry  metric  could  expect  to  encounter  and 
then  ensuring  that  an  appropriate  call  to  the  Henry  data  collection  procedure  was 
placed  in  the  Neider/Fairbanks  parser. 

Next,  the  analysis  procedure  was  designed.  The  analysis  was  separated  from 
the  display  because  computers  have  very  different  capabilities  in  their  output 
devices.  The  first  package  analyzes  the  collected  raw  data  and  the  second 
displays  the  finished,  smooth  data. 

The  program  is  menu  driven.  It  initially  gives  the  user  a  choice  to  parse  a 
new  program  or  view  old  data.  If  the  parse  choice  is  selected  the  parsers  feed 
both  the  Henry  and  the  Halstead  packages  with  data.  After  a  successful  parse  the 
user  is  presented  with  a  choice  of  either  viewing  the  Halstead  or  Henry  metric 

data.  This  is  when  the  analysis  portion  of  the  Henry  metric  is  called.  It  is  not 
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until  the  user  decides  which  data  to  view  is  there  a  distinction  made  as  to  how  to 
process  the  parsed  data.  This  feature  was  designed  for  several  reasons: 

-  Use  the  Halstead  metric  to  refine  the  code 

-  then  analyze  the  code  via  the  Henry  metric  for  data  flow 

-  but  the  user  should  still  have  the  option  to  select  either  metric 

The  data  for  both  metrics  are  essentially  different  as  are  the  purposes  for 
gathering  the  data  but  the  final  goal  of  this  dual  metric  system  is  to  produce  good 
code. 

Finally,  the  presentation  data  module  was  designed.  The  Halstead  and  the 
Henry  metric  both  produce  numbers  which  are  essentially  meaningless  unless  a 
thorough  understanding  of  the  particular  metric  implementation  is  undertaken. 
Thus,  both  metrics,  in  differing  fashions  present  "help"  data  to  aid  understanding 
of  the  metric  output.  These  files  are  both  verbally  and  graphically  presented  to 
the  user. 

The  overriding  design  issue  was  to  modularize  the  Henry  metric  as  much  as 
possible.  The  most  significant  exception  to  the  Parnas'  ideal  [Ref.4:  p.330]  are  the 
numerous  calls  to  the  data  gathering  procedure  from  the  parser  modules.  These 
calls  depend  on  details  of  how  the  data  will  be  analyzed  in  their  sequencing  and 
data  passing  scheme.  A  conscientious  effort  was  made  to  minimize  global  data 
and  isolate  procedures  into  nearly  stand  alone  modules. 
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B.  SPECIFIC  ISSUES 


The  housekeeping  routines  of  the  global  package  are  used  to  adjust  the  parsed 
data  into  a  more  palatable  form  for  the  analysis  and  presentation  procedures. 
The  output  from  the  parser  is  stored  as  a  linked  list  of  raw  data  produced  by 
procedures  WRITE  HENRY  DATA  and  CREATE  NODE.  This  data  is  then 
analyzed  by  the  ANALYSIS  PACKAGE  for  the  particular  data  constructs  that 
represent  a  data  flow.  The  output  is  an  array  of  tabulated  data  that  is  a  set  of  all 
the  relations  necessary  for  the  Henry  metric  to  detect  local  and  global  data  flow. 

The  display  module  presents  data  in  a  tabular  format  or  as  a  graphical 
representation  for  relative  merit  analysis.  The  intent  was  for  the  user  to  see  the 
effect  of  changes,  or  to  select  a  more  verbose  description  of  the  meaning  of  the 
results.  The  modules  that  accomplish  tabular  and  graphic  displays  are  separated 
again  because  of  the  varying  capabilities  of  machines.  The  purpose  of  these 
procedures  is  to  provide  some  form  of  relative  measure  to  the  user  so  that  the 
improvement  or  results  of  a  change  could  be  more  objectively  weighed.  The 
overall  purpose  of  the  display  modules  is  to  show  the  data  in  such  a  fashion  that 
an  intelligent  assessment  is  possible. 

C.  DESIGN  ISSUES 

Design  issues  encountered  in  the  implementation  of  Henry's  metric  involve 
the  efficient  use  of  the  Ada  language's  structures  and  data  analysis  techniques. 
Sallie  Homy  developed  a  metric  process  in  which  the  constructs  of  a  particular 


language  are  ignored  or  not  put  to  specific  use.  That  is,  some  languages  have 
extremely  thorough  type  and  range  checking  facilities.  This  is  not  considered  in 
the  basic  design  of  her  metric.  These  powerful  features  are  incorporated  in  Ada 
and  provide  the  application  programmer  more  analysis  capability. 

This  design  issue  concerns  the  collection  of  all  possible  paths'  data  for 
analysis  of  actual  parameters.  The  approach  taken  by  Henry  is  biased  to  a 
language  where  input,  output,  and  combination  input  output  parameters  are 
treated  as  if  they  could  be  modified  by  the  particular  procedure  regardless  of  their 
type.  Ada  is  very  picky  about  the  manipulation  of  formal  and  actual  parameters 
and  goes  to  great  lengths  to  ensure  that  parameter  consistency  is  maintained  by 
means  of  strong  type/range  checking.  The  explicit  declaration  of  a  parameter 
type  was  used  to  select  which  component  of  the  complexity  equation  should  be 
updated.  The  appropriate  fan-in  or  fan-out  number  was  also  correctly  updated 
from  default  declarations  such  as  the  undeclared  default  formal  parameter. 

The  data  analysis  technique  issue  encountered  was  the  need  to  analyze  the 
data  via  the  IFS.  Henry's  IFS  was  designed  so  that  a  traversal  of  its  nodes 
analyzing  parent-child  pairs  will  capture  all  the  transitive  relational  data  flows. 
The  transitive  flow  analysis  designed  into  the  present  parser  will  account  for  the 
first  two  layers.  The  reasoning  behind  this  approach  stems  from  a  program 
review.  This  review,  albeit  not  extensive,  was  conducted  looking  for  the 
predominant  use  of  transitive  relations.  The  review  revealed  that  transitivity  is 
not  often  used  and  if  used  is  at  most  two  layers  deep.  There  was  little  use  of  deep 


transitive  constructs.  Thus,  the  design  approach  selected  will  detect  the  majority 


of  the  transitive  data  flow  paths  without  the  need  for  an  extensive  tree  structure. 
The  "normal"  program  has  few  transitive  relations  but  the  capability  to  analyze 
this  style  of  program  would  add  more  accuracy  to  the  metric. 

Another  design  anomallv  of  the  metric  is  the  problem  of  detecting  the 
difference  between  a  function  call  outside  the  package  declaration  and  a  global 
data  structure  manipulation.  Ada  libraries  or  packages  inhibits  the  proper 
analysis  of  a  function  call  as  opposed  to  a  data  structure  read  unless  a  full 
compiler's  output  is  available.  The  present  metric  was  designed  so  that  local 
function  calls  (within  the  package  being  analyzed)  are  properly  valued  but  the 
function  calls  outside  the  package  are  treated  as  data  structure  manipulations  or 
more  specifically  as  global  data  flows. 

D  CONTUSION 

The  design  and  implementation  phase  was  driven  by  the  analysis  of  the 
Neider/Fairbanks  parser  portion  of  their  thesis  followed  by  the  modularization  of 
the  Henry  metric  The  tradeoffs  considered  were:  the  strong  typing  and  range 
checking  of  the  Ada  language,  the  need  for  an  information  flow  tree,  the  need  for 
relative  output  for  the  user  and.  and  most  importantly  the  desire  to  incorporate 
all  of  the  Henry  metric  into  one  Ada  package. 
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III.  DESIGN  AND  TESTING 

A.  THE  EMBEDDED  CODE 

The  previous  work  done  by  Neider/Fairbanks  had  to  be  modified  to  output 
the  necessary  data  for  the  Henry  metric.  This  was  accomplished  through 
embedding  calls  to  the  Write  Henry  Data  procedure  in  ParserO.  Parserl.  Parser2. 
Parser3  and  Bypass  Function  (See  Appendix  C).  The  writing  of  the  Lexeme,  or 
identifier's  name,  was  controlled  by  a  Boolean  that  was  turned  on  or  off  according 
to  the  position  of  the  parse  of  a  particular  package.  The  design  criteria  was  to 
keep  the  data  gathering  as  simple  as  possible.  If  time  permitted,  a  more  thorough 
and  sophisticated  scheme  could  be  developed.  The  embedded  code  was  thoroughly 
rested  by  two  test  harnesses  that  simulated  a  series  of  Current  Token  Records  in 
the  form  of  an  input  Ada  package. 

B.  THE  HENRY  PACKAGE 

The  first  package  to  be  implemented  was  Henry. pkg.  It  was  conceived  to  be  a 
stand-alone  construction  that  would  initialize  the  data  collection  process,  receive 
data  from  the  other  parsing  packages  and  store  the  raw  incoming  data  in  a  linked 
list.  (See  Appendix  B).  Minimal  variables  and  foreign  procedures  from  other 
packages  are  used  The  Henry  package's  only  "withed"  packages  are  TEXT  IO. 


HENRY  GLOBAL.  HENRY  ANALYSIS  ami  HENRY  DISPLAY. 
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approach  was  considered  necessary  so  that  the  subsequent  changes  or  upgrades 
would  not  affect  other  modules  (ripple  effect).  The  design  was  to  implement  a 
basic  Henry  metric  first  for  Ada  packages  then  to  improve  and  more  fully  develop 
the  Henry  analysis  techniques  if  time  allowed.  The  Main  Menu  module  sequences 
the  user  into  the  analysis  and  display  support  packages.  The  modularization  was 
considered  necessary  because  the  analysis  and  display  packages  are  separate 
entities  and  the  separation  will  ensure  maintainability. 

The  initialization  is  conducted  by  procedure  Initialize  Henry  and  the 
declaration  statements  that  assign  initial  values  to  various  Boolean  variables. 
Initialize  Henry  creates  two  head  nodes,  one  for  the  raw  data  linked  list,  the  other 
for  the  procedure  or  function  length  records.  The  raw  data  linked  list  storage  is  a 
straight  line  of  Henry  records.  These  records  have  five  fields  that  identify 
whether  this  is  (1)  local  or  global  declaration.  (2)  the  variable/procedure's  name. 

1 3 )  an  action  class.  14)  a  parameter  class  and  (5)  a  pointer  to  the  next  record.  The 
action  class  is  comprised  of  various  identifiers  that  range  from  procedure  type  to 
end  parameters  declare.  Their  purpose  is  to  delineate  the  actions  within  the 
parsed  program  so  that  the  Henry  analysis  package  can  look  for  the  data  flow. 
The  parameter  type  field  is  used  to  define  input,  output  or  combination  input 
output  formal  parameters.  The  variable  Henry  Line  count  is  purposely  initialized 
within  this  procedure  to  draw  attention  to  it’s  initial  value.  The  array  of  length 
records  is  initially  a  parallel  construct  not  directly  tied  to  the  procedure  or 
function  it  holds  the  data  for.  In  the  analysis  package  a  sequential  process  is 


produced  where  the  records  are  linked  to  the  data  manipulation  array.  The 
purpose  of  the  length  record  is  to  hold  the  begin  and  end  line  counts  of  each 
procedure  or  function.  These  line  counts  are  used  later  to  compute  the  specific 
modules  length  for  inclusion  in  the  complexity  equation. 

The  receipt  of  incoming  data  is  accomplished  primarily  by 
Write  Henry  Data.  This  procedure  is  supported  by  a  boolean 
Write  Henry  Enable.  This  boolean  turns  on  or  off  the  recording  of  the  incoming 
records  from  the  Get  Current  Token  Record  procedure.  Specifically,  the  boolean 
will  allow  recording  only  selected  data  from  the  incoming  record  stream  selected 
by  the  place  w'ithin  the  recursive  descent  parser  that  the  boolean  is  activated. 
This  control  is  necessary  to  pick  and  choose  the  data  that  is  critical  and  to  ignore 
the  remainder. 

The  procedures  Create  Node  and  Clear  Henry  Lexeme  support  the  data 
gathering  scheme.  The  "in  out"  pointers  within  Create  Node  serve  the  purpose  of 
allowing  a  view  of  the  last  record  in  the  incoming  stream  or  to  work  on  the 
current  record.  It  is  arranged  so  that  New  Node  points  to  the  newly  created 
blank  record  and  Last  Record  points  to  the  just  filled  in  trailing  record 
Procedure  Clear  Henry  Lexeme  is  necessary  because  of  the  way  Ada  handles 
strings.  Create  Line  Node  procedure  functions  identically  to  Create  Node 

The  incoming  data  is  chosen  from  within  the  Bypass  Function  and  from 
ParserO  to  Parser-!  Ref.3:  pp.  102- 1  GO  by  where  the  calls  to  the  Write  henry  data 
procedure  is  positioned.  The  purpose1  of  this  approach  is  to  assure  the  Henry 
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metric  receives  sufficient  information  but  more  importantly  that  the  records 
writen  into  the  linked  list  are  delimited  in  a  particular  fashion  for  ease  of  analysis. 
There  is  still  considerable  data  that  can  be  collected  for  analysis  from  the  parsers 
but  the  Henry  metric  is  not  to  the  stage  of  development  where  it  would  be  useful. 
The  added  depth  of  information  could  be  used  in  two  areas;  analysis  and  a  more 
informative  output  from  both  metrics. 

The  Write  Henry  Data  procedure  selectively  enters  the  field  data  into  the 
raw  data  linked  list  records  as  dictated  by  the  incoming  actual  parameters.  That 
is.  the  incoming  data  has  default  settings  but  if  the  data  is  to  be  ignored  then  the 
"null  setting"  is  passed  as  an  actual  parameter.  This  assists  in  the  gathering 
process.  The  design  of  the  data  gathering  modules  is  such  that  modifications 
could  be  easily  implemented.  This  was  purposely  designed  into  them  so  that 
upgrades  would  be  fairly  painless. 

The  Henry. pkg  was  constructed  with  modularization  and  maintainability  in 
mind.  It  was  meant  to  be  a  stand  alone  entity  that  receives  data  from  the 
.Wider/ Fairbanks  Bypass  Function  and  Parser  packages.  It  performs  the 
functions  of  initialization,  data  receipt  and  data  storage  besides  defining  the  data 
structures  used  throughout  the  Henry  metric  packages.  There  are  a  number  of 
improvements  that  could  be  added  to  the  actual  parameter  analysis.  These 
improvement'  all  concern  the  wealth  of  options  Ada  provides  in  parameter 
pas-jug  scheme-,  -uch  a-,  aggregates,  dot  notation  to  access  hidden  variables  and 
allocators  Further,  the  present  Henry  metric  does  not  analyze  the  incoming 


actual  parameters  for  expressions  but  the  variables  are  all  considered  for  inclusion 
in  the  complexity  calculation  by  the  transitivity  analysis. 

C.  HENRY  ANALYSIS  PACKAGE 

The  Henry  Analysis  package  comprises  three  procedures  to  set  up  the  raw 
linked  list  data  and  a  fourth  procedure  to  actually  analyze  the  code  for  metric 
calculations.  The  Analysis  procedures  are  called  sequentially  from  the  Henry 
package  and  function  as  support  for  the  Henry  package.  They  operate  on  the 
data  in  sequential  discrete  steps.  They  first  determine  the  formal  parameters, 
then  search  and  identify  procedures  and  variables  and  then  determine  the  metric 
numbers.  The  approach  used  was  to  nibble  each  piece  of  the  tremendously 
complex  data  flow  calculation  down  into  minute  sub-steps  until  all  that  is  left  is 
to  simply  count  the  marks  on  each  record  for  determination  of  the  complexity  or 
global  flow  metric  numbers.  This  approach  removed  the  necessity  for  an  arduous 
single  pass  calculation. 

The  set  up  procedures  are  CLEAN  UP  HENRY  DATA. 
SET  IT  HENRY  ARRAY,  and  SPRUCE  UP  HENRY  DATA.  A  support 
function.  LOCAL  NAME,  assists  in  the  setting-up  process.  These  procedures' 
end  product  are  two  metrics,  the  complexity  metric  and  the  global  flow  metric. 

The  Clean  Up  procedure  ensures  that  all  parameter  type  records  have  all 
their  fields  properly  filled.  It  scans  for  their  parameter  lists  all  the  procedures  and 
functions  that  are  declared  in  the  analyzed  package  .  The  field  of  moc 
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importance  is  the  classification  of  either  "in,  out  or  in-out"  type  parameters. 
These  fields  are  checked  up  to  the  colon  delimiter  within  the  formal  parameter  list 


and  then  entered  into  all  parameter  type  records  correctly. 

The  Set  Up  procedure  scans  through  the  entire  linked  list  setting  up  another 
array  of  pointers  to  facilitate  the  analysis  process.  The  Henry  Array  records  have 
identifier,  beginning  pointer  and  line  length  record  pointer  entries.  This 
procedure's  purpose  is  to  break  up  the  long  linked  list  into  another  array.  It 
actually  does  not  sub-divide  the  list  it  merely  arranges  an  array  of  pointers  into 
the  linked  list  that  delineate  each  function  or  procedure.  The  resulting  array  is 
called  the  Henry  Array.  The  line  length  record  pointers  are  records  that  hold  the 
stop  and  stop  line  numbers.  These  records  are  eventually  used  to  compute 
procedure/function  lengths. 

The  Spruce  Up  procedure  goes  through  the  Henry  array  data  and  sorts  out 
the  local  and  global  data  flow-  paths.  It  does  this  through  the  use  of  the 
LOCAL  NAME  function.  This  function  searches  either  the  Henry  array  for  a 
particular  procedure  name  or  the  package  and  appropriate  procedure's  declaration 
sections  for  the  variable  name  in  question.  Its  purpose  is  to  sort  out  the  local 
procedure  or  function  calls  from  the  global  data  structure  manipulations.  It 
cannot  completely  solve  this  problem  but  defers  final  resolution  to  the  Calculation 


procedure. 

The  Calculate  Metric  procedure  will  again  process  the  Henry  array  data 
looking  for  the  final  resolution  to  local  procedure  or  function  calls  as  opposed  to  a 
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global  data  structure  manipulation.  It  proceeds  in  small  increments  to  finally 
arrive  at  the  complexity  metric  calculation  and  a  global  data  flow  calculation. 
The  complexity  metric  number  is  arrived  at  by  first  considering  all  the  in,  out, 
in-out  formal  parameters  to  calculate  the  fan-in  and  fan-out  numbers.  After  the 
initial  cut  the  fan-in,  fan-out  numbers  are  incremented  upward  by  the  numbers  of 
identified  procedure  actual  parameters  that  feed  these  formal  parameters  and  then 
by  the  the  Transitivity  In  and  Transitivity  Out  functions. 

An  example  of  this  process  would  be  for  procedure  A  with  formal  parameters 
X.  V.  First  process  parameters  X  and  V  for  their  explicit  type  adding  1  to  fan-in 
if  its  an  input  parameter  or  1  to  fan-out  if  its  an  output  parameter.  Next  process 
all  the  assignment  expressions  looking  for  a  modification  of  the  formal  parameter. 
If  procedure  A  modifies  parameter  X  prior  to  a  call  to  another  function  increment 
the  fan-out  count  by  the  number  of  statements  after  the  assignment  delimiter. 
Then  go  through  an  analysis  of  transitivity  incrementing  fan-in  or  fan-out 
accordingly.  Finally,  call  up  the  appropriate  record  of  Henry  Line  count  and 
calculate  the  length  of  the  procedure  or  function  in  question. 

The  equation  that  the  process  is  working  toward  solving  is: 

Complexity  =  length  *  (fan-in  4  fan-out)  ‘  "2 

This  equation  represents  the  local  data  flows  within  the  analyzed  procedure. 
Sallie  Henry  set  the  exponent  of  the  bracketed  expression  to  2  because  of  her 
experience  with  operating  system  code  analysis.  This  program  will  continue  with 


this  number  until  enough  data  can  be  compiled  to  support  a  change.  Once  this 
calculation  is  done  then  the  global  data  flows  are  analyzed. 

The  global  flows  are  arrived  at  by  first  eliminating  all  other  possibilities. 
Then  the  remaining  choices  have  to  be  foreign  data  flows.  This  process  is  started 
in  the  Spruce  Up  procedure  and  completed  within  the  Metric  Calculation 
procedure.  The  process  is  used  to  find  whether  the  data  structure  is  being  read 
from  or  written  to  or  both. 

The  equation  that  the  analysis  is  striving  to  solve  is: 

Global  flow  =  write  *  (read  4-  read-write)  -f 

read-write  *  (read  +  read- write  -  1) 

This  equation  represents  how  and  by  what  means  the  global  data  structures 
are  manipulated.  The  global  data  analysis  procedure  goes  across  procedure  or 
function  boundaries  whereas  the  previous  complexity  metric  calculations  remain 
within  the  particular  procedure  or  function  under  scrutiny.  This  across-  the- 
border  calculation  is  accomplished  through  the  text  file  that  is  discussed  next. 

Within  the  calculation  procedure  the  initial  entries  for  the  display  package 
are  started.  This  amounts  to  constructing  a  text  file  of  descriptive  terms  and 
indices  of  merit  for  output  in  the  Display  Package.  It  also  provide  a  temporary 
storage  bank  for  the  global  data  information.  This  across-boundary  analysis  of 


38 


global  flows  was  necessary  because  of  the  implications  of  not  being  able  to  detect 
the  difference  within  the  Ada  code  of  an  access  to  a  data  structure  or  a  function 


call  to  a  "withed"  package. 

In  summary,  the  Analysis  package  is  a  series  of  analytical  steps.  The  purpose 
of  these  steps  is  to  arrive  at  the  complexity  and  global  flow  metrics.  These  indices 
and  additional  data  are  stored  in  a  text  file  for  output  to  the  user  within  the 
Display  package. 


D.  HENRY  DISPLAY  PACKAGE 

The  Henry  Display  package  is  the  user  interface  portion  of  the  metric 
program.  It  provides  the  user  with  four  different  aspects  of  viewing  the  analyzed 
data.  The  purpose  of  this  package  is  to  show  the  user  the  data  flow 
characteristics  of  the  particular  parsed  input  program.  The  output  data  will  be 
the  fan-in.  fan-out,  length,  complexity,  and  four  global  flow  numbers.  These 
numbers  can  be  presented  in  a  listing  format,  viewed  with  a  help  file  of 
informative  paragraphs  or  compared  by  means  of  the  other  portions  of  the 
analyzed  package  to  gain  a  relative  sense  of  merit. 


The  procedures  that  comprise  the  Display  package  are 


LIST  METRIC  DATA 


WRITE  RELATIVE  DATA 


GRAPH  RELATIVE.  The  LIST  METRIC  DATA  procedure  will  output  the 


data  file  compiled  while  in  the  calculation  portion  of  the  previously  discussed 
package.  It  will  be  a  straight  listing  of  information  that  will  be  grouped  bv  each 


element  in  the  calculation  of  the  complexity  or  global  flow  numbers,  such  as  all 
procedures  are  grouped  under  the  head  of  FAN-IN.  The  purpose  of  this  listing  is 
to  show  each  procedure  or  functions  component  figure  in  the  calculation  of  the 
final  complexity  and  global  figures.  If  the  programmer  is  in  a  compile,  test,  edit, 
recompile  mode  of  operation  this  will  provide  a  spotlight  on  where  to  improve  the 
data  flow'  "choke-  points".  These  data  flow  critical  points  will  be  seen  as  either 
high  global  flow  or  high  complexity  numbers.  In  short,  the 
LIST  METRIC  DATA  is  designed  for  a  more  sophisticated  programmer  wishing 
to  edit-and-run  and  see  the  results  of  particular  programming  style  changes. 

The  WRITE  RELATIVE  DATA  display  will  provide  the  same  format  of 
data  but  the  numbers  will  have  been  normalized.  Accompanying  each  number  set 
will  be  a  short  narrative  keyed  to  the  relationships  of  the  particular  numbers. 
That  is.  if  the  user  sees  a  complexity  number  of  125  beside  the  procedure  X  he 
will  be  provided  with  an  explanation  that  that  number  is  not  too  far  out  of  line  in 
comparison  to  the  other  procedures  or  functions  analyzed  within  this  package. 
The  purpose  of  this  approach  is  to  normalize  the  output  numbers  to  provide  a 
relative  comparison  for  a  more  user  friendly  approach  to  the  mysterious  metric 
number  generation. 

There  is  an  additional  procedure  within  the  Display  package  that  provides  a 
complete  listing  of  the  raw  input  data.  This  procedure  will  most  likely  be  of  no 
use  to  anyone  except  those  programmers  who  are  extremely  interested  in  the 

factors  that  lead  to  the  particular  numbers  presented. 
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The  final  package  for  viewing  the  data  is  the  graphical  presentation  module. 
It  takes  the  relative  data  and  manipulates  the  floating  point  numbers  to  achieve  a 
bar  chart  display. 

In  summary,  the  Display  package  will  provide  the  user  with  information  in  a 
variety  of  formats  so  that  he  can  reach  a  conclusion  from  relative  merit  or 
absolute  input  numbers.  The  data  flow  numbers  will  point  out  the  critical  data 
flow  points  within  a  procedure  so  that  the  programmer  can  better  see  where  to 
improve  or  expend  the  most  effort.  The  purpose  of  the  output  data  is  to  show  the 
user  where  to  improve,  not  how  to  improve. 

E.  TESTING 

The  testing  of  the  design  was  conducted  as  the  modules  were  being  built  and 
at  the  integration  step  prior  to  the  final  product.  This  was  accomplished  through 
the  use  of  test  harnesses  that  simulated  the  particular  module's  inputs  and 
through  test  input  programs  that  were  hand  analyzed  to  verify  the  metric's 
outputs. 

The  testing  of  the  Henry  package  was  accomplished  by  gradually  building  a 
more  thorough  test  harness  as  each  previous  test  was  successful.  The  final  test 
harness  encompassed  over  200  input  records  that  simulated  a  myriad  of  token 
record  inputs.  The  testing  of  the  Henry  module  presented  some  difficulty  because 
it  is  so  intimately  tied  to  the  parsers.  This  was  overcome  by  simulating  the 
Bypass  S\ipport  package  as  a  partial  input  and  the  test  harness  as  the  balance  of 
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the  test  vehicle.  The  package  performed  well  within  the  test  harness  and 
functions  adequately  within  the  context  of  the  entire  program. 

The  testing  of  the  analysis  package  of  the  Henry'  metric  again  was  an  iterative 
build  of  the  harness.  The  testing  accomplished  after  all  the  Henry  metric 
packages  were  integrated  was  accomplished  on  the  same  group  of  programs 
provided  by  the  NWC  programmers  to  test  the  Halstead  metric  integration.  The 
harness  testing  was  comprised  of  a  50  step  program  that  simulated  a  package  with 
three  independent  procedures/functions  utilized  W’ithin  its  scope.  There  were 
intentional  references  outside  the  scope  of  the  test  harness  package  to  determine  if 
the  global  call  detection  scheme  functioned  properly.  In  all.  the  test  harness 
exercised  every  possible  data  flow  scheme  analyzable  by  the  Henry  metric 
including  one  that  would  be  a  missed  call.  The  analysis  package  performs 
adequately  within  the  scope  of  the  harness.  Testing  revealed  that  the  code  within 
the  analysis  phase  was  non-  reentrant  which  required  a  the  use  of  a  boolean  to 
define  the  status  of  the  call  to  the  package.  This  boolean  will  protect  the  data 
structure  and  effectively  make  the  code  reentrant. 

The  display  module  was  tested  with  the  same  driver  harness  as  the  analysis 
package.  The  results  vcere  used  to  fine  tune  the  package  and  to  debug  the 
problems.  The  process  used  was  to  call  the  analysis  package  from  the  display 
package  and  drive  the  display  package  with  the  test  harness.  This  is  also  how  the 
integrated  program  performs.  The  results  were  adequate  from  the  stand  point  of 
the  test  harness  but  need  some  refinement  when  using  the  whole  program. 


The  summary  of  testing  would  be  extensive  use  of  complicated  test  harnesses. 


Since  a  test  harness  has  to  simulate  all  the  inputs  to  a  module  that  the  tested 
code  could  possibly  see  during  integration,  they  are  difficult  to  build  much  less 
debug.  The  debugging  problem  comes  from  the  question  is  it  the  code  or  is  it  the 
harness?'.  The  test  harness  approach  is  quite  fruitful  from  two  orientations:  (1)  it 
forces  the  programmer  into  a  thoroughly  understanding  his  code  and  (2)  the 
harness  construction  will  lead  the  programmer  into  optimizing  his  code.  Why 
doesn't  the  programmer  already  understand  his  code0  He  does  but  the 
ramifications  of  a  certain  approach  does  not  come  surface  until  the  design  of  a  test 
harness  is  considered.  The  optimization  is  driven  by  the  need  to  get  accurate,  fast 
results  so  that  the  troubleshoot-repair-compile-troubleshoot  regimen  can  proceed 
fairly  rapidly.  This  is  a  real  concern  with  the  tremendous 
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IV.  CON(  LESIONS 


A.  IMPLEMENTATION 

The  Henry  metric  was  implemented  in  as  modularized  a  fashion  as  possible. 
The  intent  was  to  allow  for  improvements  through  a  more  thorough  use  of  the 
parser's  information  in  AdaMeasure's  first  revision.  Also,  certain  aspects  of  the 
Henry  metric  were  not  implemented,  but  it  is  now  felt  that  they  would  add  depth 
to  the  analysis  process.  In  particular,  the  first  change  should  be  that  the 
Information  Flow  Structure  be  added.  This  tree-like  structure  will  allow  the 
analysis  of  hidden  calls  but  will  still  not  detect  the  missed  call  problem  discussed 
earlier.  The  missed  call  problem  will  most  likely  only  be  solved  through  the  use  of 
the  Program  Counter  Register,  but  this  approach  defeats  the  idea  of  a  high  level 
language  Tin-  final  improvement  would  be  to  add  analysis  of  the  "withed" 
packages  so  that  an  interface  table  could  be  constructed. 

The  program  was  incorporated  into  the  previous  work  by  Neider  and 
Fairbanks.  Their  work  was  extensive  and  deserves  favorable  mention  because  it 
made  the  implementation  of  the  Henry  metric  considerably  easier.  The  output  of 
the  program  is  still  in  need  of  sophist icat ion  and  improvement.  In  particular,  two 
improvements  are  needed.  (1)  explaining  the  theory  behind  the  metric  and  (2) 
conveying  the  ideas  to  the  user.  For  an  example,  a  high  global  data  flow  indicates 
an  overworked  global  data  structure.  What  should  the  metric  present  to  the  user.’ 


The  average  programmer  might  not  see  th>-  relevance  of  this  and  would  miss  the 
indication  that  a  critical  point  in  the  data  How  -hould  probably  be  revised. 

B  THE  FETERE  OF  METRICS 

Metrics  are  tools.  They  point  out  areas  of  weakness.  The  metric  will  show  a 
direction  to  proceed  even  in  the  absence  of  an  absolute  answer  as  to  the 
correctness  of  the  analyzed  code. 

The  importance  ot  metrics  will  grow  as  the  si^e  of  programs  grow.  We  do  not 
know  how  important  metrics  will  become  hut  it  does  seem  clear  that  'here  is  a 
need  for  something  that  helps  improve  rode  quality  and  is  fairly  painless  to  use 
The  emphasis  on  "good"  code  will  continue  to  be  in  the  forefront  of  the  Armed 
Servire  s  concerns  because  of  their  intense  involvement  in  rea1  time  embedded 
programs.  These  programs  present  a  real  challenge  for  incorporation  of  changes, 
improvements  or  any  other  form  of  maintenance  programming.  The  purpose  of 
metrics  in  this  environment  would  be  to  point  the  way  to  good  modularized 
design. 

The  metric  should  be  part  of  the  test  scenario  besides  being  an  integral 
member  of  the  life  cycle  of  the  program.  The  metric  will  force  quality  control 
without  the  painful  process  of  formal  inspections.  The  formal  process  has  its 
place  but  the  metric  tool  could  perform  more  than  the  inspection.  The  metric 
tool  should  be  incorporated  into  the  test  cycle  as  a  meter  of  improvement.  This 
immediate  feedback  to  the  programmer  will  be  beneficial.  The  manager  could 


also  use  the  absolute  number  as  a  goal  for  acceptance.  This  approach  will  provide 


the  manager  with  the  data  needed  at  decision  points  in  the  life  cycle  of  a 
program.  The  absolute  number  could  also  be  tied  to  the  program  throughout  its 
life  as  a  measure  of  improvement  or  degradation  over  time.  The  uses  are  many, 
as  the  reader  can  see.  The  importance  of  the  metric  cannot  be  overstated  when 
the  future  holds  programs  that  will  span  millions  of  lines  of  code. 

Metrics  are  important.  They  hold  out  the  hope  of  an  automated  tool  that 
will  guide,  interpret,  and  assess  progress  for  programmers  and  management  alike. 
I  hope  that  the  work  of  this  metric  will  assist  in  advancing  metrics  and  the  use  of 
the  Ada  language. 
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APPENDIX  A:  INFORMATION  FLOW  MECHANISMS 


MECHANISMS  FOR  INFORMATION  FLOW  ANALYSIS 

A>  Sallie  Hoary  so  succintly  states: 

The  information  flow  analysis  takes  place  in  three  phases.  The  first  phase 
involves  generating  a  set  of  relations  indicating  the  flow  of  information  through 
input  parameters,  output  parameters,  returned  values  from  functions  and  data 
st  met  ures. 


Cieneral  Format  of  a  Relation 

The  generation  of  relations  is  first  prefaced  with  a  quick  review  of  relational 
format . 

L  -  R  1.  R2  ...Rcount: 

Where  L  may  he  in  any  one  of  the  following  forms: 

1.  P  DS  P  is  the  name  of  a  procedure  and  DS  the  data 

structure. 

2.  P  C).  P  is  the  procedure  name  and  O  is  the  return  value. 

3.  P  j  O  P  is  the  procedure  j  is  an  integer  representing 

the  formal  parameter  position,  and  O  is  the  jth 
Output  parameter. 

4.  P  j . I  P  is  the  procedure,  j  is  an  integer  representing 

the  jth  parameter,  and  I  is  the  jth  input 
parameter. 

Ri  may  he  in  one  of  the  following  forms: 

1  vDS  S  is  a  procedure  name  and  DS  is  the  name  of  a  data 

structure. 

2  NO  S  is  a  procedure  name  and  O  is  the  returned  value. 

3  S.j.I  S  is  the  procedure  name,  j  is  the  jth  parameter 

and  1  is  the  jth  input  parameter. 

T  S.yO  S  is  the  procedure  name,  j  is  an  integer 

representing  the  jth  parameter  in  the  list  and  O 
is  the  output  parameter. 

V  S.null  S  is  the  procedure  name,  null  represents  no  data 
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6.  v  roils. 


S  is  the  procedure  name  and  constant  a  value 
used  within  S 

>  error  S  is  the  procedure  name  and  error  represents  an 
invalid  How  of  information  through  procedure  S. 


RILES 

1.  L  i'  of  the  form  P  D>  then 

tin-  form  is  used  only  to  generate  the  relations  from 
procedure  P  that  updates  DS  with  Ri 

2.  L  i'  of  the  form  P  O  then 

Tiii'  i'  used  only  m  generating  the  relations  from  procedure 
P  that  produce  an  output 

3.  L  i'  of  the  form  P  j  ()  then 

This  is  used  when  generating  the  relations  that  produce  an 
input  of  the  jth  parameter  in  the  procedure's  formal 
parameter  li't.  There  must  he  a  unique  relation  for  each  of 
P's  parameter- 

4.  L  l'  of  the  form  P  j  I  then 

This  is  used  when  generating  the  relations  for  procedure  P 
that  produce  an  input  for  the  jth  parameter  Another 
procedure  T  calls  P  to  indicate  that  the  jth  parameter  of  P 
receives  the  input  update. 

■  >.  Ri  is  of  the  form  S.DS  then 

Procedure  S  reads  information  from  DS  this  format  is  used  to 
indicate  a  read  only. 

6.  Ri  i'  of  the  form  S.O  then 

Relations  are  generated  that  come  from  procedure  T  that  are 
return  values  to  T  from  S. 

7.  Ri  is  of  the  form  S.j.I  then 

For  generating  relations  for  procedure  S  that  indicates  S  s 
jth  input  parameter  passes  information  to  L. 

?.  Ri  is  of  the  form  S.cons. 

Then  S  causes  a  constant  number  or  string  to  flow  to  L. 

9.  Ri  is  of  the  form  S.Null  then 

This  is  used  to  indicate  when  S  does  not  update  a  parameter, 
that  is.  the  parameter  was  strictly  input  only. 

10.  Ri  i'  of  the  form  S. error  then 

si  calls  T  and  one  of  the  parameters  to  T  is  an  output  only 
thus  if  S  attempts  to  input  a  value  thi'  would  he  an  error. 
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ANALYSIS  OF  CALLS 


The  following  two  procedures  X  and  Y,  exhibit  all  possible  calling  structures 
in  the  light  of  information  flow  analysis.  NP  stands  for  not  possible,  NC  for  no 
calls  and  the  numbers  beneath  are  used  for  later  reference. 


The  pairs  1,  3,  5,  7,  13,  and  15  cannot  appear  in  a  flow  of  data  path  because 
for  DS's  the  only  ".ssignment  and  reads  allowed  are  from  procedures  or  functions. 
The  other  not  possibles  stem  from  input  parameters  not  flowing  into  DS’s  and  not 
flowing  into  output  parameters.  Entries  2  and  4  indicate  X  calling  Y,  receiving 
information  from  Y  and  using  this  information  to  update  a  DS.  The  rest  of  the 
possibilities  can  be  reasoned  in  like  manner  except  entries  10  and  12,  which 
represent  calls  via  a  third  procedure.  Here  procedure  Z  calls  Y  and  passes  the 
returned  value  from  Y  to  X.  This  represents  a  no  call  between  X  and  Y  but  there 
is  a  data  flow. 


TABLE  1. 


LOCAL  CALL  TABLE 


X.DS 

X.0 

X.U.I 

X.k.D 

v.ds 

NP 

NP 

Y  calls  X 

NP 

1 

Cl 

9 

13 

Y.Q 

1 

X  calls  Y 

X  calls  Y 

NC 

X.  calls  Y 

1 

1 

5 

6 

10 

14 

Y.k.I 

! 

NP 

NP 

Y  calls  X 

NP 

3 

7 

11 

15 

Y.k,0 

X  calls  Y 

X  calls  Y 

NC 

X  calls  Y 

4 

8 

12 

16 

All  data  flows  from  the  highest  calling  structure,  eventually  being  deposited 
in  the  data  structures.  Analysis  of  the  table’s  data  confirms  this  premise. 

MEMORYLESS  PROCEDURES 


Some  procedures  keep  no  record  of  their  data  passing  or  the  data  supplied. 
These  procedures  are  used  to  do  housekeeping  for  memory  management,  for 
example,  but  their  analysis  for  data  flow  would  produce  a  false  amount  of  data 
transactions.  Another  area  that  these  procedures  appear  in  are  arithmetic 
operations  that  are  sometimes  duplicated  in  hardware  such  as  double  precision 
math  etc.  This  discussion  leads  to  the  problem  that  these  procedures  would  be 
difficult  to  discern  in  an  automated  process.  That  is,  if  memoryless  procedures  are 
not  to  be  considered  in  data  flow  analysis  some  form  of  human  decision  making  is 
required.  It  should  be  noted  that  this  is  another  premise  that  the  automation  of 
the  Henry  metric  is  based  on.  The  absolute  numbers  for  the  Henry  metrics  would 


TABLE  2. 


GLOBAL  CALL  TABLE 

X.DS  X.C  XXI  XXO 

V.DS 

NP  NP  Y  flow*  X  NP 

1  5  9  13 

Y.O 

Y  flows  X  Y  flows  X  Y  flows  X  Y  flows  X 

2  6  1©  14 

Y.K.I 

NP  NP  Y  flows  X  NP 

3  7  11  15 

YXO 

Y  flow*  X  Y  flows  X  Y  flows  X  Y  flows  X 

4  8  12  16 

be  inflated  if  memoryless  procedures  are  not  eliminated  from  the  analysis.  In 
short  a  memoryless  procedure  should  be  removed  from  the  code  to  be  analyzed  if 
a  more  accurate  assessment  or  if  the  absolute  numbers  produced  are  being  used 
for  a  comparative  study. 
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APPENDIX  B:  HENRY  METRIC  CODE 


*Xx*x»*****s*«********«*****«**X**************«*****«***** 


-  TITLE:  AN  ADA  SOFTWARE  METRIC 

-  MODULE  NAME:  PACKAGE  HENRY  GLOBAL 

-  DATE  CREATED:  09  MAY  87 

-  LAST  MODIFIED:  19  MAY  87 

-  AUTHOR.  LCDR  PAUL  M.  HERZIG 


—  DESCRIPTION:  This  package  contains  the  data  declarations 
and  basic  procedures  used  throughout  the  Henry  metric. 


*xx*x**X«*«****x**x*********«x********»**X***********S****X* 


with  GLOBAL,  TEXT  10; 
use  GLOBAL.  TEXT  JO; 

package  HENRY  GLOBAL  is 

package  INTEGER  10  is  new  TEXT  IO. INTEGER  IO(LNTEGER); 
use  INTEGER  10; 

package  REAL  IO  is  new  TEXT  10. FLOAT  IO(FLOAT); 
use  REAL  JO; 

--Rea)  IO  produces  floating  point  output 

MAX  ARRAY  SIZE  :  constant  integer  :  =  50; 

MAX  LINE  SIZE  :  constant  integer  :=  76; 

DUMMY9s  :  constant  integer  :=  9999; 

NULL  CHAR  :  constant  character  :=  : 


—  DUMMY9s  are  used  for  false  data  input  to  the  line  length  calculations 

type  DECLARED  TYPE  is  (BLANK.  LOCAL  DECLARE,  GLOBAL  DECLARE); 

type  ACTION  TYPE  is  (UNDEFINED, 

HENRY  HEAD  NODE. 

PACKAGE  TYPE, 

PROCEDURE  TYPE, 

FUNCTION  TYPE, 

PARAM  TYPE. 

ASSIGN  TYPE, 

[DENT  TYPE, 

DATA  STRUCTURE. 

FUNCALL  OR  DS. 
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PROCALL  OR  DS. 

END  PAR  AM  DECLARE. 
END  ACTUAL  PA R A M, 
END  DECLARATIONS. 

END  ASSIGN  TYPE. 

END  PACKAGE  DECLARE, 
END_PACKAGE  TYPE, 

END  FUNCTION  TYPE, 
END  PROCEDURE  CALL); 


type  PAR  AM  CLASS  is  (NONE.  IN  TYPE.  OUT  TYPE.  IN  OUT  TYPE, 

ACTUAL  PARAM); 

subtype  FORMAL  PARAM  CLASS  is  PARAM  CLASS  range  IN  TYPE.  IN  OUT  TYPE; 
subtype  LEXEME  TYPE  is  string  (1..  MAX  LINE  SIZE); 
subtype  END  UNITS  is  ACTION  TYPE  range 

END  FUNCTION  TYPE  . END  PROCEDURE  CALL. 

--Declared,  action  and  parameter  classes  or  types  are  ;sed 
--in  the  Henry  record  data  collection  process 

type  HENRY  RECORD; 

type  POINTER  is  access  HENRY  RECORD; 

type  HENRY  RECORD  is  record 

IDENTITY  ;  DECLARED  TYPE; 

NOMEN  ;  LEXEME  TYPE; 

TYPE  DEFINE  :  ACTION  TYPE: 

PARAM  TYPE  :  PARAM  CLASS: 

NEXTl  '  ;  POINTER: 

end  record. 

—  Henry  record  is  the  workhorse  storage  medium 


type  HENRY  LINE  COUNT  RECORD; 

type  LINE  POINTER  is  access  HENRY  LINE  COUNT  RECORD; 
type  HENRY  LINE  COUNT  RECORD  is  record 
ID  NAME  :  LEXEME  TYPE; 

START  COUNT  INTEGER; 

STOP  COUNT  INTEGER; 

NEXT  REC  :  LINE  POINTER; 
end  record. 

—  Henry  line  count  record  is  used  to  ciaculate  the  length  of  procedures 
--or  functions 

type  HENRY  DATA  is  record 
NAME  OF  DATA  LEXEME  TYPE. 

BEGIN  POINTER  ;  POINTER; 

LINE  LENGTH  POINTER  LINE  POINTER: 

<md  record: 

--Henry  data  records  are  used  to  delineate  the  functions  and  procedures 


8&WWI 


m 


»vxw 


’'V'V'V  •Xos. 


for  easier  data  calculations 


type  HENRY  DATA  ARRAY  is  array  (1.  MAX  ARRAY  SIZE)  of  HENRY  DATA: 

type  Ol'TPUT  DATA  is  record 
TYPE  OF  :  ACTION  TYPE  :=  UNDEFINED; 

NAME  OF  LEXEME  TYPE; 

TYPE  FAN  IN  :  FLOAT  :=  0.0; 

TYPE  FAN  OUT  :  FLOAT  ~  0.0; 

TYPE  COMPLEXITY  :  FLOAT  :=  0.0; 

TYPE  READ  .  FLOAT  •.=  0.0. 

TYPF  VVRITE  :  FLOAT  :  =  0.0; 

TYPE  READ  VVRITE  :  FLOAT  :=  0.0: 

TYPE  FLOW  :  FLOAT  :=  0.0; 

CODE  LENGTH  :  INTEGER  :=  0; 

end  record, 


—Output  data  records  hold  the  final  calculation  numbers  for  storage  into 
—  an  output  input  file 


type  OUTPUT  ARRAY  is  array  (1  MAX  ARRAY  SIZE)  of  OUTPUT  DATA; 


NEXT  HEN  LAST  RECORD,  NEW  RECORD, 

HEAD.  NAME  POINTER  ~:  POINTER; 

HENRY  ARRAY  : HENRY  DATA  ARRAY: 

HENRY  LINE  COUNT  :  integer  :==  0: 

OUT  PUT  DATA  :  OUTPUT  ARRAY; 

LINE  COUNT  RECORD  :  HENRY  LINE  COUNT  RECORD; 

HEAD  LINE.  NEXT  LINE.  LAST  LINE  :  LINE  POINTER; 

PACKAGE  BODY  DECLARE, 

ASSIGN  MARKER 
GLOBAL  MARKER, 

NAME  TAIL  SET. 

ASSIGN  STATEMENT, 


FUNCTION  PARAM  DECLARE. 

FORMAL  PARAM  DECLARE  BOOLEAN  :■=  FALSE; 

FIRST  HENRY  CALL  BOOLEAN  :=  TRUE; 

DUMMY  LEXEME  LEXEME  TYPE: 


procedure  CREATE  NODE) NEW  NODE.  LAST  RECORD  :  in  out  POINTER): 
procedure  CREATE  LINE  COUNT  NODE(NEXt  LINE, 

LAST  LINE  :  in  out  LINE  POINTER); 
procedure  INITIALIZE  HENRY) HEAD  in  out  POINTER; 

HEAD  LINE  in  out  LINE  POINTER); 


procedure  CLEAR  HENRY  LEXEMEjHENR Y  LEXEME  in  out  LEXEME  TYPE) 


end  HENRY  GLOBAL: 
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package  body  HENRY  GLOBAL  is 


--procedure  creates  Henry  record  nodes  for  data  storage 

procedure  CREATE  NODEfNEW  NODE,  LAST  RECORD  :  in  out  POINTER)  is 
TEMP  POINTER  :  POINTER; 


begin 

putfresult  file,  "in  create  henry  node");  new  line(result  file); 

TEMP  POINTER  ~  new  HENRY  RECORD^ 

TEMP  POINTER  IDENTITY  :=-■  BLANK; 
for  I  in  1.  Y1AX  LINE  SIZE  loop 
TEMP  POINTER. NOMEN(I)  :  =  NULL  CHAR; 
end  loop; 

TEMP  POINTER  TYPE  DEFINE  UNDEFINED; 
TEMP  POINTER  PARAM  TYPE  ;=  NONE; 

NEW  NODE  NEXTl  :=  TEMP  POINTER: 

LAST  RECORD  :=  NEW  NODE; 

NEW  NODE  ;=  TEMP  POINTER; 

end  CREATE  NODE; 


--creates  line  count  nodes  to  hold  the  length  data  for  each  procedure  or 
--function 

procedure  CREATE  LINE  COUNT  NODE(NEXT  LINE, 

LAST  LINE  in  out  LINE  POINTER)  is 

TEMP  POINTER  :  LINE  POINTER; 

begin 

putfresult  file,  "in  henry  create  line  node");  new  linefresult  file); 

TEMP  POINTER  ;=  new  HENRY  LINE  COUNT  RECORD; 

for  I  in  1  MAX  LINE  SIZE  loop 
TEMP  POINTER. ID  NAME(I)  :=  NULL  CHAR. 

end  loop: 

TEMP  POINTER.  ST  ART  COUNT  ;=  DUM\lY9s; 

TEMP  POINTER. STOP  COUNT  ;=  DUMMY9s; 

NEXT  LINE  NEXT  REC  :=  TEMP  POINTER; 

LAST  LINE  :=  NEXT  LINE; 

NEXT  LINE  TEMP  POINTER; 

end  CREATE  LINE  COUNT  NODE; 


—sets  all  of  the  variables  to  their  initial  values  besides 
--creating  the  first  Henry  record  and  line  count  record 

procedure  INITIALIZE  HENRY(HEAl)  :  in  out  POINTER. 

HEAD  LINE  ;  in  out  LINE  POINTER)  is 


;v; 


HEAD  STRING  :  STRING(1.  9)  :  = 
SIZE  INTEGER- 


"HEAD  NODE"; 
9; 


CREATEfHENRY  FILE,  out  file.  HENRY  FILE  NAME); 

put  (HENRY  FILET  "in  INITIALIZE  HENRY");  new  line(HENR  Y  FILE); 

CREATEjHENRY  OUT,  out  file,  HENRY  OUT  NAME): 

HEAD  ;=  new  HENRY  RECORD; 

HEAD  NOMEN(l  SIZE)  ;=  HEAD  STRING; 

HEAD  IDENTITY  :=  BLANK; 

HEAD  TYPE  DEFINE  HENRY  HEAD  NODE; 

HEAD  PARAM  TYPE  :=  NONE;  ’ 

NEXT  HEN  '  :=  HEAD: 

CREAfE  NODEfNEXT  HEN,  LAST  RECORD); 

HENRY  LINE  COUNT  0; 

DUMMY  LEXEME)  I )  :  -  NULL  CHAR; 

HEAD  LINE  .=  new  HENRY  LINE  COUNT  RECORD; 

HEAD  LINE  ID  NAMEfl.  SIZE)  :=  HEAD  STRING: 

HEAD  LINE  START  COl'NT  =  DUMMY9s; 

HEAD  LINE. STOP  COUNT  =  DUMMY9s; 

NEXT  LINE  :=  HEAD  LINE; 

CREATE  LINE  COUNT  NODE(NEXT  LINE,  LAST  LINE); 
end  INITIALIZE  HENRY; 


--clears  the  input  string  to  null  characters 


procedure  CLEAR  HENRY  LEXEME(HENR Y  LEXEME  in  out  LEXEME  TYPE) 


put(HENRY  FILE.  "IN  CLEAR  HENRY  LEXEME"):  NEW  L1NE(HENR Y  FILE); 
FOR  I  in  1  MAX  LINE  SIZE  loop 
HENRY  LEXEME(I)  --  NULL  CHAR: 

end  loop; 

END  CLEAR  HENRY  LEXEME 


END  HENRY  GLOBAL; 
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—  DESCR IPTION:  This  package  contains  the  Henry  metric  data 

—  collection  and  program  control  routines. 

«x«»xx*XxxxXxxXxx*xxxxx***xxxx***x*XxxXXxxxXxxxxxxxxx*x*XXxx*xx 

with  GLOBAL.  HENRY  GLOBAL.  HENRY  ANALYSIS.  HENRY  DISPLAY  TEXT  10; 
use  GLOBAL.  HENRY  GLOBAL,  HENRY  ANALYSIS,  HENRY  DISPLAY  TEXT  10; 

package  HENRY  is 


procedure  WRITE  HENRY  DAT A(ID  .  in  DECLARED  TYPE  :=  BLANK; 

IN  NAME  ;  in  LEXEME  TYPE  :=  DUMMY  LEXEME; 
DEFINE  ;  in  ACTION  TYPE  :=  UNDEFINED; 

PARAM  :  in  PARAM  CLASS  :=  NONE; 

LINK  :  in  POINTER); 


procedure  UPDATE  LINE  COUNT: 

procedure  WRITE  LINE  COUNTfIN  NAME  ;  in  LEXEME  TYPE;=  DUMMY  LEXEME 
FIRST  COUNT  ;  in  INTEGER  =  DUMMY9s; 

LAST  COUNT  ;  in  INTEGER  DUMMY9s: 

PTR  in  LINE  POINTER): 

end  HENRY: 


package  body  HENRY  is 


-produces  the  written  data  records  from  the  parser  inputs 
--data  is  only  written  if  it  is  something  other  than  the 
--  ri  nil  set  ( ings 

procedure  WRITE  HENRY  DATA(II)  in  DECLARED  TYPE  HI  \ Nk 
IN  N  AME  in  LEXEME  TYPE  l><  MMY  I  EXE  ME 
DEFINE  m  ACTION  TYPE  UNDEFINED 
P  \  R  A M  in  PAR  AM  <1.  \SS  NONE 
LINK  POINTER)  IS 

tiegin 

put  i  r«'si||i  file  "m  write  henry  lata")  new  linefresult  tile| 

If  ID  HI.  ENK  then 

LINK  IDENTITY  ID 


L 


4J 

^  J 

•5 

i 


when  l.OOAl.  DF.OI.ARF.  put(RK>l  I  T  HLK.  "Local  declare") 
when  OI.ORAI.  DFIOL  ARF.  put(RF!SI  LT  FILL.  "OloLal  declare" 
when  others  putiRKSI  LT  FILF..  "I  nde Tared" I 

end  ease 

else  put  1  RKSI  LT  FILL  "NO  DFIOL  AK  ATION  T 
end  if 

new  lme(RFSI  L  I'  FILL) 

If  IN  N  WlK(i|  N I  1.1.  CHAR  then 
LINK  NOMKN(  I  MAX  LINK  SIZK)  IN  NA\1K(1  MAX  LINK  S1ZK) 
Rl’TlRKSl'LT  Fll.K  IN  NAMK) 

FILSK  Pl'TjRKSI  LT  FILL.  "No  NAMK"). 
end  if. 

new  line)  RKSI  LT  FILL) 

If  DKFINK  I  NDKFINKl)  then 
l.l.NKTAI’K  DKFINK  DKFINK 
a>e  I)  F.  FI  N F  is 

when  I  NDF.FINFID  put|KF.SI  LT  FILF!  "I  ndehned"). 


When  HF  NR  A  HK.AD  NODK 
when  PAOKAOF!  TA  PF! 
when  l’RO(  KDI  RK  TA  PF. 
when  FT  NOTION  TA  PF. 
when  FAR  AM  TA  PF  P 

when  ASSION  TA  PF  pu 

when  IDF. NT  TA  PF  pu 

when  DATA  - TRI  <  K  RK 
when  F  I  N( '  A  1. 1.  <  *R  DS 
when  I'ROt  ML  <  >R  DS 
when  KNI)  I'  AR  \M  I)K<  I  \R K 
when  F  N  I)  AOTI  A  I.  PAR  AM 
when  F.ND  DK(  I  \ RATIONS 


P«t(RF.Sl  1.1  F'ILK  "Henrv  Head  Node") 
put|RF.SI  I  I  F  ILF.  "Package  deelarat  ion" ) 
put  |  R  F.M  I.T  FILF.  "Procedure  declaration") 
putiRF.SI  LI'  F  ILF. .  "Funci  i,  .n  dedarat  ion  " ) . 
put  i  R  F.>l  LT  !  ILF.  "Parameter  declaration"), 
put  1  R  F  SI  I  T  F II. F!  "  Assignment  delimiter'  ! 
put(RKSl  LT  FILF.  "Identifier"). 

putiRF.SI  LT  F  ILF  .  "Data  stru  m  ure  descriptor"), 
put  I R  F.-sl  I  T  F  ILF.  "F  unction  or  data  descriptor" I 
putiRF.SI  I.  r  FII.F.  "Procedure  or  dat  a  descriptor") 

IF.  put(RF!Sl  LT  FII.F..  "Knd  parameter  delimiter") 

1  putiRKSI  l.T  FII.F:.  ”F  !nd  actual  parameter  delimiter"! 


when  I  AD  DFIOI  VRATIONS  putiRKSI  LT  FII.F!  "Knd  declaration  delimiter" - 

when  F.ND  A-MON  TA  PF.  putlRKSI’LT  FILF.  "Find  assignment  statement  delimiter"). 

when  F.ND  PAOKAOF.  DF.OI.ARF.  putfRKSI  l.T  F  II.F!  "Find  package  declaration  delimiter" 

when  F.ND  PAOKAOF.  TA  PF.  putiRKSI  LT  FII.F.  "Find  package  delimiter") 

w  he>i  F  Nil  FT  NOTION  TA  I’F!  put(RFISri.T  F'H.F..  "Find  function  delimiter"). 

when  F.ND  PROOF.DI  R  F.  OAI.1.  putiRF.SI  LT  FII.F!  "Find  procedure  lehmiter'T 

when  others  put(RF.SI  l.T  FII.F.  "(  nknown") 

"rid  a  s  e 

new  lit.e,RF<l  1  T  FILF!) 

end  if 

l!  PAR  AM  \(>\F  then 

LINK  PAR  AM  I  A  I’F  I’  AH  AM 
<  \-F  PAR  AM  I" 

aahfnin  1  a  pf  pi  I  in  01  1  IIIF.  IN  par  aait 
AAHF.NOI  T  I  A  PF.  PI  T.HF'IIT  F II  F  "OI  L  PAR  AM" 

AAHFNIN  ol  I  I  A  PF  IM  I  R  1>I  I  I  F  II  F  "IN  ()l  T  PAR  AM" 

AA  HF  N  I  .  1  III  Rs  PI  I  RF  -II  I  IIIF  "Nt  *  N  FI "  I 
I  \D  t  A  ' F 

■••i  I  1! 

u"w  I, ii"  R  F  - 1  I  I  Fill) 

•  I  AA  R|  !  |  III  NR  A  D  A  I  A 


--increments  the  line  fount  for  eventual  inclusion  into 
--(he  calculation  of  a  particular  procedures  total  length 
-  the  length  number  is  used  in  the  complexity  calculation 


procedure  I  PDATK  LINK  COUNT  is 


begin 

putfresult  file,  "in  update  line  count"),  new  line(result  file); 
if  not  FORMAL  PARAM  DECLARE  then" 

HENRY  LINE  COUNT  ;  HENRY  LINE  COUNT  +  1; 

end  if; 

end  UPDATE  LINE  COUNT; 


--produces  the  records  to  hold  the  line  count  information 
-  the  records  are  not  initially  tied  to  a  particular  procedure 
--but  are  a  parallel  data  structure  until  in  the  Hen  anai.pkg 
-where  they  are  linked  to  the  procedure  that  they  hold  the 
--dat a  for 

procedure  WRITE  LINE  COUNTjlN  NAME  ;  in  LEXEME  TYPE  DUMMY  LEXEME 
FIRST  COUNT  in  INTEGER  ;=  Dl'MMYds; 

LAST  COUNT  m  INTEGER  DUMMY9s; 

PTR  in  LINE  POINTER)  IS 

begin 

put  (HENRY  FILE,  "in  WRITE  LINE  COUNT"),  new  line)  HENRY  FILE); 
putfresult  file,  "in  w rite  line  count " ).  new  )ine(result  file). 

If  IN  NAME(I)  NULL  CHAR  then 

PTR  ID  NAME)  1  MAX  LINE  SIZE)  IN  NAME;  end  if 
If  FIRST  COUNT  DUMMY!*  then  PTR  START  COUNT  FIRST  COUNT,  end  if 

If  I.  A>T  COUNT  DUMMYds  then  PTR  STOP  COUNT  L  AST  COUNT;  end  if. 

end  W  RITE  LINE  COUNT. 

end  HENRY 
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I)  ATE  CRKVTEI)  29  A  PH  .“7 
LAST  MODIFIED  29  MA\  K7 


-  A I  THOR  LCDR  P \I  1  At  HEHZKi 

DESCRIPTION  I'his  package  contains  the  analyst-  f u n <  t  u ■  n - 
required  to  identify  each  data  tb>w  m  the  Henry  metric 


with  GLOBAL GLOBAL  PARSER  BYPASS  SIPPoRT  U  NC  TIONS  HENRY  GLOBAL  TEXI  K 
use  GLOBAL  GLOBAL  PARSER  BYPASS  SI  PPORT  El  NOTIONS  HENRY  GLOBAL  TEXT  IO; 

package  HENRY  ANALYSIS  is 

package  NEW  INTEdER  IO  is  new  TEXT  IO  1NTEOER  lO(integer) 
use  NEW  INTEGER  IO 

package  REAL  IO  is  new  TEXT  IO  FLOAT  It  *  ( fl  ■  >at ) 

Use  R  E  AL  IO; 

PROC  El  NO  COl  NT  INTEGER  0. 

INDEX  INTEOER. 

NAME  POINTER  POINTER 

-  PROC  El  NO  COl  NT  is  the  total  number  of  procedure-  and  functions  m  the 
-anal)  zed  package 


type  SELECTOR  TYPE  is  (PROCEDI  RE  EIND  El  ACTION  LIND 
VARIABLE  FIND). 

procedure  CLEAN  I  P  HENRY  DAT  A(HEAI)  in  POINTER) 
procedure  SET  I  P  HENRY  ARRAY  (HEAD  in  POINTER 
HEAD  LINE  m  LINE  POINTER) 

procedure  SPRITE  I  P  HENRY  DATA, 
function  LOCAL  NAME) NAME  POINTER  in  POINTER 
SELECTOR  in  SELECTOR  TYPE 

INDEX  in  INTEGER  ) 

return  BOOLEAN. 

fun,  non  CALCCLATE  LINE  COl  NT(W()RK  LINE  LINE  POINTER) 
return  INTEGER 

fund, on  FIND  STRING  SIZE(IN  STRING  LEXEME  TYPE)  FETl  RN  INTEGER 
function  TRANSITIVITY  I N ( I N  NAME  LEXEME  TYPE 
BEGIN  LOOP  STOP  LOOP  POINTER) 

RETCR N  FLOAT 

fun. n.  n  TK  ANSITIVITY  OCTlIN  NAME  LEXEME  TY  PE 
ToP  POINTER) 

RETCR N FLOAT 

. . lure  CAI  Cl  LATE  METRK  (HE  AD  in  POINTER 

HEAD  LINE  m  LINE  POINTER) 


AS^iSvSCs/  .VSyivy! ,  i*o 


f  n  <  1  HENRY  ANALYSIS 


package  body  HENRN  AN\L\S1S  is 


-start'  the  process  of  setting  up  the  raw  Henry  records  into 
-decipherable  data  it  also  founts  the  numbers  of  procedures 
-functions  ari  l  fills  in  empty  parameter  type  fields  in  the 
-llenrv  records 


procedure  CLEAN  I  P  HENRY  DATA(HEAD  IN  POINTER)  is 
TEMP  TOP.  BOTTOM  :  POINTER 

begin 

put  (HENRY  FILE,  "in  CLEAN  I  P  HENRY"):  new  line(HENRY  FILE) 
CLEARSCREEN: 

pul("Proressing  Henry  data  records  ...  please  wait"): 

TOP  HEAD: 

BOTTOM  TOP.NEXTI: 

--  move  past  package  declarations 
LOOP 

EXIT  WHEN  TOP  TYPE  DEFINE  END  PACKAGE  DECLARE: 
TOP  BOTTOM: 

BOTTOM  :  TOP.NEXTI: 

END  LOOP 

--count  the  number  of  procedures  functions 
LOOP 

EXIT  WHEN  BOTTOM  TYPE  DEFINE  =  END  PACKAGE  TYPE; 
if  (BOTTOM  TYPE  DEFINE  -  PROCEDURE  TYPE)  or 
(BOTTOM. TYPE  DEFINE  =  FUNCTION  TYPE)  then 
PROC  FUNC  COUNT  =  PROC  FUNC  COUNT  -  1: 
end  if 


TEMP  :  BOTTOM; 

BOTTOM  TEMP.NEXTi; 
end  loop. 

BOTTOM  :  TOP; 

-ensure  all  parameter  records  have  a  type  defined 

FOR  I  in  1  PROC  FUNC  COUNT  LOOP 
LOOP 

EXIT  WHEN  (TOP  TYPE  DEFINE  PROCEDURE  TYPE)  OR 
(TOP  TYPE  DEFINE  FUNCTION  TYPE): 

TOP  :  BOTTOM  NEXT  1 
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HOTTOM  TOP 
KM)  LOOP 
TEMP  TOP  NEXTl 

if  TEMP  TA  PE  DEFINE  PAR  AM  TVPK  ANT) 

TOP  TAPE  DKFINK  FI  NOTION  TVPK  then 
LOOP 

KX1T  WHEN  TKMP  TYPE  DEFINE  END  PARAM  DECLARE 
if  TEMP  PAR  AM  TYPE  NOT  IN  FORMAL  PARAM  (LASS  THEN 
LOOP 

EXIT  WHEN  (TEMP  PARAM  TYPE  IN  TYPE!  OR 
(TEMP  PAR  AM  TAPE  OCT  TYPE)  OR 
(TEMP  PARAM  TYPE  IN  OPT  TYPE). 

HOTTOM  TEMP 
TEMP  HOTTOM  NEVl'l 
END  LOOP 
HOTTOM  TEMP 
LEMP  TOP  NEXT  1 
lOP  TEMP 
I  <  >OP 

EXIT  WHEN  (TOP  PAR  AM  LA  PL  IN  TAPE)  OR 
i  Lop  PAR  AM  LA  PE  ( >1  L  LA  PE)  OR 
LOP  PAR  AM  LA  PE  IN  ol  T  LA  PE) 

I  KMP  PAR  AM  I  A  PE  HOI  LoM  PARAM  I  A  PE 
LEMP  LOPNLXTl 
Top  LEMP 
L  N I )  Loop 
•'I'*’ 

TOP  LEMP 
HOTTOM  LIMP 

f-n.|  if 

LEMP  Lop  NL  X  Li 
I  NI)  I  (  top 


-furi'  l  >n*.  li-ualK  itivnkf  'he  l#-fauli  in  n  (.»•  |.<rmnncr 
•  in-xTi  ilu«  !>[>••  if  it  is  in  i  't»'hn«,'i 


Top  LA  PE  DELINK  H  N<  ||oN  I  A  PL  LHL.N 
if  LEMP  I  A  PL  DLLINL  PARAM  I  A  PL  I  HEN 
I  ( (Ol* 

I  XII  AA  HL.N  LL  Ml'  LA  PL  DEI  IN|  I  \|)  PAR  AM  DIM  API 
I  EMP  PAR  AM  I  A  PL  IN  I  A  PL 
ri  Ml'  H<  M  I  o\l  NL  \  |  | 

Ho  f  Tom  ILMP 
L  N!)  loop 
'■n  l  if 
"  ii  •  I  ,f 

lop  imi  L"M  N|  Al  l 

111*1  |M\|  |  (  If 

I  N I )  I  i  m  ip  loKl'iop 
n  I  '  I  I  AN  IP  HI  NR  A  DAI  A 


r.j 


-  -  s  t' t  s  up  the  Henrs  data  records  to  mark  the  beginning  of  each 
--function  or  procedure  it  also  ties  the  procedure  line  length 
--records  to  its  proper  procedure  function 


procedure  SKT  I  P  HENRY  ARR  AY(HEAl)  in  POINTER 

HEAD  LINE  m  LINE  POINTER)  is 

WORK  LINE  TEMP  LINE  LINE  POINTER 
TEMP.  TOP  BOTTOM  POINTER 


begin 

put  (HENRY  FILE,  "m  SET  IP  HENRY")  new  lme|HENRY  FILE) 
WORK  LINE  HEAD  LINE  NEXT  REC; 

TEMP  LINE  WORK  LINE: 

BOTTOM  HEAD: 

TOP  BOTTOM. 


-CO  PAST  DECLAR  ATIONS 


LOOP 

EXIT  WHEN  TOP  TYPE  DEFINE  END  P.AOKAOE  DECLARE 
TOP  BOTTOM. NEXTI. 

BOTTOM  TOP 
END  LOOP 


--set  up  the  Henr\  arra>  records  so  that  their  pointers  are  ai  the 
--top  of  each  procedure  or  function 


FOR  I  m  I  PKOC  ECNC  OOENT  LOOP 
LOOP 

EXIT  WHEN  (TOP  TYPE  DEFINE  PROCEDI  RE  TYPE)  OH 
(TOP  TYPE  DEFINE  FI  NOTION  TYPE) 

TOP  BOTTOM  NEXTI 
BOTTOM  TOP. 

END  LOOP 

HENRY  \RR  \Y  (I)  NAME  OF  DATA)  I  MAX  I  INK  SI/E) 

TOPNOMEN(|  MAX  LINE  s|/K). 

HENRY  \RRAY(I)  BEGIN  POINTER  TOP 
Loop 

EXIT  WHEN  (BOTTOM  TYPE  DEFINE  END  H  NOTION  I  Y  PH  on 
(BOTTOM  TYPE  DEFINE  END  PROCEDI  Rl  (Ml) 

TEMP  BOTTOM  NEXTI 
Bol'ToM  TTMP 


INDIoi  i|* 


•  1  O-  . . . .  p'  rd  -  i  i  heir  related  |-r . lure  fiin  ti  r 

I  op  HO  I  I OM  M  \  I  l 
Ho  |  D  At  1 1  >P 

HINRY  \  R  R  \  Y  tit  I  !  N  T  ll\t,|H  I’oINTTR  Work  ||\( 
Wt  RK  I  IM  II  MP  I  INI  \|  \  I  R|  i 
I  I  MP  l  INI  WORK  I  IM 


03 


ante 


END  LOOP:  -FOR  LOOP 
end  SET  I  P  HENRY  ARRAY; 


-this  procedure  calculates  the  length  of  each  procedure  function 
--the  results  are  fed  into  line  length  records 

function  CALCl  LATE  LINE  COl  NT(  WORK  LINE  LINE  POINTER) 

return  INTEGER  is 

DIFFERENCE  INTEGER  n; 

1  INTEGER 


begin 

put  (HENRY  FILE  "in  CALCl TATE  LINE  COCNT"):  new  lme(HENRY  FILE) 
DIFFERENCE  WORK  LINE  STOP  COl  NT -WORK  LINE  START  COCNT. 
RETCRN  (DIFFERENCE), 
end  CALCI  LATE  LINE  COCNT 


--this  function  searches  for  local,  within  a  procedure  and  global-local, 
-within  a  package,  for  variable  name  matches 
-it  is  selectable  for  which  name  the  search  is  conducted 


furi't i  ,n  LOCAL  NAME(NAME  POINTER  in  POINTER 
SELECTOR  m SELECTOR  TYPE 
INDEX  in  INTEGER  ) 

ret  urn  H(  X  >L E  A  N  is 

N  A  ME  >(  GUT  POINTER  N  AME  LEXEME  TYPE; 

N  \  ME  -l/E  POINTER  SIZE  INTEGER  MAX  LINE  SIZE 
R  ESI  I  T  BOOLEAN  FALSE 

TEMP  TEMPI  POINTER 

I  INTEGER  I 


begin 


put  (HENRY  FILE  "in  LOCAL  N  A  ME")  new  line(  HENRY'  FILE). 

N  \  Mh  -<  'I  GHT(  I  N  AME  SIZE)  N  AME  POINTER  NOMEN (1  NAME  SIZE), 

ct  iNYEKT  I  PPER  0  ASE(N  AME  SOCGHT  NAME  SIZE); 


f  d.lEi  loR  PRO<  EDI  RE  FIND)  OR  (SELECTOR  FI  NOTION  FIND)) 
WD  PR<  ><  FI  NC  COl  NT  0)  then 
I  i  «  >P 

POINTER  NAMED  POINTER  SIZE) 

HhNRY  ARRAY(I|N\ME  OF  DATA!  I  POINTER  SIZE) 

<  nWIRT  I  PPER  (  ASEIPOINTER  NAME  POINTER  SIZE) 

ITXII  |X \ME  sol  GHTfl  NAME  SIZE) 

PoINTFI.  N  \ME(  I  POINTER  SIZE)). 

I  All  WHEN  II  PR<  x  UNO  COCNT)  OR  (RESCLT); 

I  I  I 
l  N|i  I  «  x  >P 
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l  l. 

--if  it  is  a  variable  name  search  first  within  the  package 
—declarations,  next  within  the  procedure  declarations 

elsif  SELECTOR  V  ARIABLE  FIND  then 
TEMP  HEAD  NEXT  I: 

LOOP 

EXIT  WHEN  (TEMP  TYPE  DEFINE  ■-  END  PACKAGE  DECLARE)  OR 
(RESULT): 

if  TEMP. TYPE  DEFINE  =  IDENT  TYPE  then 
POINTER  NAMEjl  POINTER  SIZE)  TEMPNOMEN(l  POINTER  SIZE); 
CONVERT  UPPER  CASE( POINTER  NAME.  POINTER  SIZE); 

RESULT  —  (NAME  SOI  GHT(1  NAME  SIZE)  = 

POINTER  NAMEjl.  POINTER  SIZE)); 

end  if: 

TEMPI  TEMP  NEXT1 
TEMP  TEMPI: 

END  LOOP. 


--did  not  find  the  variable  within  the  package  declarations 
--search  the  specified  procedures  declarations 


.f  NOT  RESULT  then 

TEMP  HENRY  ARR A Y(INDEX)  BEGIN  POINTER: 

LOOP  -  DID  NOT  FIND  NAME  IN  PACKAGE  DECLARATIONS 
EXIT  WHEN  (TEMP  TYPE  DEFINE  END  DECLARATIONS)  OR 
(RESULT) 

if  TEMP  TYPE  DEFINE  IDENT  TYPE  then 
POINTER  NAME(1  POINTER  SIZE) 

TEMP  NOMENfl  POINTER  SIZE) 

CONVERT  UPPER  CASE(POINTER  NAME  POINTER  <IZF). 
RESULT  -  (NAME  SOUGHT(l  NAME  SIZE) 

POINTER  NAME( I.  POINTER  SIZE)), 
end  if; 

TEMPI  TEMP  NEXT  I : 

TEMP  TEMPI; 

END  LOOP; 

end  if; 
end  if; 

RETURN  (RESULT); 
end  LOCAL  NAME; 


—  finishes  polishing  the  Henr>  records  the  .lata  can  now  be  analw.ed 

—  for  local  global  data  and  starts  the  actual  number  crunching 

procedure  SPRI  CE  I  P  HKNID  I)  \  LA  is 
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TEMP,  TEMPI,  TEMP2  POINTED, 


begin 

put(HENRY  FILE,  "in  SPRUCE  UP  HENRY");  new  line(HENRY  FILE); 
FOR  I  in  1..PROC  FUNC  COUNT  LOOP 
TEMPI  :=  HENRY  ARRAY(I). BEGIN  POINTER; 


-loop  past  parameters 


LOOP 

EXIT  WHEN  TEMPI  TYPE  DEFINE  =  END  DECLARATIONS; 
TE.MP2  :=  TEMPI. NEXTl; 

TEMPI  :■=  TEMP2; 

END  LOOP; 

TEMP  TEMPI  NEXTl: 


--first  analyze  identifier  types  (variables)  for  local  or  global 
--significance  Update  the  record  if  it  is  not  local 


LOOP  -LOOK  FOR  IDENT  TYPES 
EXIT  WHEN  (TEMP  TYPE  DEFINE  =  END  FUNCTION  TYPE)  OR 
(TEMP  TYPE  DEFINE  -  END  PROCEDURE  CALL); 
if  TEMP  TYPE  DEFINE  =  IDENT  TYPE  then 
if  TEMP  IDENTITY  =  BLANK  then 
if  LOCAL  NAME(TEMP,  VARIABLE  FIND,  I)  then 
TEMP  IDENTITY  =  LOCAL  DECLARE; 
else  TEMP  IDENTITY  :=  GLOBAL  DECLARE; 
end  if. 
end  if: 
end  if: 

TEMPI  TEMP  NEXTl: 

TEMP  TEMPI; 

END  LOOP 


--n<>»  go  through  the  Henry  records  looking  for  unresolved 
-procedure  or  function  calls  update  the  Henry  records 
-to  reflect  procedure  types  or  function  types  or  data  structures 


TEMPI  HENRY  ARRAY(I)  BEGIN  POINTER 
TEMP  TEMPI  NEXTl 


■  get  pa-t  dec larat  ions 


I  ( X  tp 

E  XIT  WHEN  TEMP  IT  PE  DEFINE  END  DM  I  MI  XTIONS 
TEMPI  I  EMP  NEXTl 
IT  MP  TEMPI 
I  ND  MX  >P 


l 

I 

I 

I 


i 

I 

r 

f 


--looking  for  procedure  or  function  calls 


Sf 


I 


cv 


K 


I 


* 


R: 


LOOP 

EXIT  WHEN  (TEMP  TYPE  DEFINE  END  FUNCTION  TYPE)  OR 
(TEMP  TYPE  DEFINE  END  PROCEDURE  CALL); 


if  TEMP  TYPE  DEFINE  PROCALL  OR  DS  then 
TEMPI  :  -  TEMP; 

LOOP  -  MOVE  PAST  THE  PARAMETERS 

EXIT  WHEN  TEMPI  TYPE  DEFINE  =  END  ACTUAL  PARAM; 
TEMP2  TEMPI; 

TEMPI  TEMP2. NEXTl; 

END  LOOP; 

if  (LOCAL  NAMEfTEMP,  PROCEDURE  FIND.  I))  then 
TEMP  TYPE  DEFINE  :=  PROCEDURE  TYPE; 

else 

TE.MP2  TEMPI. NEXT1; 
if  TEMP2.TYPE  DEFINE  =  ASSIGN  TYPE  then 
TEMP  TYPE  DEFINE  DATA  STRUCTURE; 

-IF  NOT  IT  IS  A  PROCEDURE  CALL  ONLY 
TEMPI  ;  TEMP2  NEXTl; 

LOOP 

EXIT  WHEN  TEMPI  TYPE  DEFINE  =  END  ASSIGN  TYPE; 
if  (TEMPI  TYPE  DEFINE  -  FUNCALL  OR  DS)  then 
if  NOT  LOCAL  NAME(TEMPl.  FUNCTION  FIND.  I) 
t  hen 

TEMPI  TYPE  DEFINE:  DATA  STRUCTURE: 
else  TEMPI  TYPE  DEFINE:  FUNCTION  TYPE: 
end  if: 
end  if; 

TEMP2  TEMPI: 

TEMPI  TEMP2  NEXTl: 

END  LOOP: 

else  TEMP  TYPE  DEFINE  PROCEDURE  TYPE: 

end  if. 
end  if 


-  -  <  >  n  t  \  function  calls  that  cannot  Le  resolved  into  a  local  name  are 
--'(■cr, tied  as  dala  structures 


»Uif  TEMP  TYPE  DEFINE  FUNCALL  OR  DSihen 
TEMPI  TEMP 

LOOP  -LOOKING  FOR  FUNCTIONS 
EXIT  WHEN  TEMP  TYPE  DEFINE  END  ASSIGN  TYPE; 
if  TEMP  TYPE  DEFINE  FUNCALL  OR  DS  then 
if  •LOCAL  N\ME|TEMP  FUNCTION  FIND.  I)) 

•  hen 

I  EMP  TYPE  DEFINE  FUNCTION  TYPE: 
eNe  |  EMP  I X  IT.  DEI  INK  DATA  STRUCTURE; 

en  f  if 
HI  1  if 

I  EMIT  1  IMP  NEXTl 
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TEMP  -  TEMPI; 

END  LOOP; 
end  if; 

TEMPI  =  TEMP; 

TEMP  :  TEMPI. NEXT1; 

END  LOOP; -PROCALL  OR  DS  LOOP 
END  LOOP:  -  FOR  LOOP 


end  SPRUCE  UP  HENRY  DATA; 


—this  function  only  works  for  Ada  language  strings  that  identify 
—  a  variable 

function  FIND  STRING  S1ZE(IN  STRING  :  LEXEME  TYPE)  RETURN  INTEGER 

IS 


SIZE  :  INTEGER  :=-  0; 

BEGIN 

PUT  (HENRY  FILE.  "IN  FIND  STRING  SIZE");  NEW  LINE)  HENRY  FILE); 
FOR  I  IN  I  MAX  LINE  SIZE  LOOP 
IF  IN  STRING(I)  =  NULL  CHAR  THEN 
SIZE  :=  SIZE  4  i; 

END  IF; 

END  LOOP; 

RETURN  SIZE; 

END  FIND  STRING  SIZE; 


—transitivity  is  detected  by  searching  the  right  hand  side  of 
--assignment  statements  for  a  name  match  of  the  actual 
--parameters  from  a  function  or  procedure  call 

function  TRANSITIVITY  IN(IN  NAME  ;  LEXEME  TYPE; 

BEGIN  LOOP.  STOP  LOOP  ;  POINTER) 
RETURN  FLOAT  is 


ASSIGN  MARK. 

PROCEDURE  MARK  :  BOOLEAN  ;  FALSE; 

TRANS  COUNT  :  FLOAT  ;•=  0.0: 

TEMP  TEMPI  POINTER  BEGIN  LOOP. 

TI.T2  POINTER. 

MAX  ;  INTEGER  MAX  LINE  SIZE: 

BEGIN 

—stop  loop  is  determined  by  where  in  the  parameter  list  you  are 
LOOP 

EXIT  WHEN  TEMP  STOP  LOOP. 

if  TEMP  TYPE  DEFINE  ASSIGN  TYPE  THEN 
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ASSIGN  MARK  =  TRIE; 

elsif  TEMP  TYPE  DEFINE  =  END  ASSIGN  TYPE  THEN 
ASSIGN  MARK  -  FALSE: 
end  if; 

--mark  whether  you’ve  passed  an  assignment 

if  (TEMP.NOME.Nfl  MAX)  ---  IN  NAME(1  MAX))  AND 
(NOT  ASSIGN  MARK)  THEN 
TRANS  COUNT  -  TRANS  COUNT  -  1.0; 

—  if  you  have  detected  a  name  match  count  the  number  of  assignment 
--variables  as  transitive  feed  into  the  actual  parameter 

—  note  functions  have  already  been  calculated  the  same  for 
--data  structures  so  skip  these  counts 

Tl  :  TEMP.  T2  Tl.NEXTl: 
if  (Tl  TYPE  DEFINE  I  DENT  TYPE)  AND 
(T2  TYPE  DEFINE  ASSIGN  TYPE)  then 
LOOP 

EXIT  WHEN  T2  TYPE  DEFINE  END  ASSIGN  TYPE: 
if  T2  TYPE  DEFINE  IDENT  TYPE  THEN 
TRANS  COUNT  TRANS  COUNT  -  10. 
end  if: 

Tl  T2: 

T2  Tl.NEXTl 
END  LOOP: 
end  if: 
end  if; 

TEMP  -  TEMPI  NEXTl: 

TEMPI  :=  TEMP: 

END  LOOP; 

RETURN(TRANS  COUNT): 

END  TRANSITIVITY  IN: 


--if  detect  a  name  match  on  the  right  hand  side  of  an  assignment 
--statement  have  a  transitive  relation  on  this  variable  but 
—  there  is  no  need  to  count  the  rest  of  the  assignment 
--variables  becuase  the  most  it  can  account  for  is  1 


function  TRANSITIVITY  OVT(IN  NAME  LEXEME  TYPE; 
TOP  ;  POINTER) 

RETURN  FLOAT  is 


ASSIGN  MARK  :  BOOLEAN  :  FALSE 
TRANS  COUNT  FLOAT  .=-  0.0: 

TEMP.  TEMPI  POINTER  :-  TOP; 

MAX  INTEGER  :  MAX  LINE  SIZE; 
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BEGIN 

LOOP 

EXIT  WHEN  (TEMP  TYPE  DEFINE  END  PROCEDI  RE  CALI.)  OR 
(TEMP  TYPE  DEFINE  END  El  ACTION  TYPE) 

IF  TEMP  TYPE  DEFINE  ASSIGN  TYPE  THEN 
ASSIGN  MARK  TRI  E 

ELSIF  TEMP  TYPE  DEFINE  END  ASSIGN  T\  PE  THEN 
ASSIGN  MARK  -  FALSE. 

END  IF: 

IF  (TEMP  NOMEN(l  MAX)  IN  NAMED  MAX))  AND  (ASSIGN  MARK) 
THEN 

TR  ANS  COL AT  :  TRANS  COl  NT  •  10. 

END  IF. 

TEMP  TEMPI. NEXT!. 

TEMPI  :  TEMP; 

END  LOOP; 

RETl'RN(TRANS  COl  NT) 

END  TRANSITIVITY  OCT; 


--finishes  polishing  the  data  and  with  the  transitivit)  functions  calculates 
--the  fan  in  fan  out  of  data  besides  the  global  data  structures 


procedure  CALCl  LATE  METRIC  ( HEAD  in  POINTER 

HEAD  LINE  m  LINE  POINTER)  is 

TEMP  LINE  LINE  POINTER 

TEMP  TOP  TEMPI  TEMP2  POINTER 
PROC  PTR 

P  AR  AM  PTR  POINTER 

FAN  IN  FAN  OCT  FLOAT 

i.en(;th  intec;er  o. 

MAX  INTEGER  MAX  LINE  H/.E 

(ODE  EXPONENT  INTEGER  2. 

COMPLEXITY 
GLOBAL  FLOW 
GLOBAL  READ 
GLOBAL  WRITE 

GLOBAL  READ  WRITE  FLOAT 


••global  How  represents  the  whole  picture  of  global  data  How 
-the  equation  t-  below  and  encompasses  both  read  and  write  to 

-  global  data  structures 

--note  global  lata  structures  could  be  external  function  call- 

-  there  i -  t,,  mean-  t"  determine  the  difference 


NEW  N \ ME 
N  \ME  i  )L 
\"s|(,N  MARK 
GLOBAL  MXRK 


-THING!  l  M  \\  LINE  I / E  i 
IT  NEME  W  PE 

IK  »<  >1  I  \N  I  \l SE 
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•  I Z h  INFFDF.K  \t\\  I  I N h  ^  1/ F 

"IZK  INIFDFR  I. 

FF  Ml*  VXMK  '  I'H  l\<  .1  I  M/F  ) 


FM  !  i  HF. NR X  F  IFF  "IN  <  XI  (  l  \  I  IF  MF  I  Hl<  N|  XX  I  INF  ,  (IF  NHX  Fill 


-hr''  M-t  r\  41 1  I . Dun  i'  x.  fhft*  i  hi'  ‘Ml  4  %n  t  r  '■**-*h<  w  :i 

IF  F  I  Ft  S  I  HFNRX  (Ml  ,  r,.-r. 

(  I  F  X N  l  I*  HFNRX  D  V  I  \ i  HF  \ I > | 

>F  I  l  I*  HFNRX  XRR  XX  HF  \l>  HF  XiM  INF 
-I’KI  <  F.  II*  HFNRX  DUX 
F<  >R  I  i  >  I  F’R<  ><  F  l  N(  <  i  n  n  I  I  (  h  if 
<.!.(  Hi  XI  HF  XD 
< .  I  ( 'liXl  N\  H I  I  F 
(,l.(  Hi  XI  HF  XD  XX  HI  |  F 
F  X  N  I  \ 

I  X  N  (  1 1  | 

<  I  >M»M  F\m 
(.1  (  Hi  XI  FI. "XX 
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GLOBAL  FLOW  :  GLOBAL  WRITE  * 

(GLOBAL  READ  -  GLOBAL  READ  WRITE)  * 
GLOBAL  READ  WRITE  * 

(GLOBAL  READ  -  GLOBAL  READ  W  RITE  -  l  0) 
putfHENRY  OUT.  "NUMBER  OF  LINES  -  "); 

putfHENRY  OUT.  LENGTH): 

OUT  PUT  DATA) I). CODE  LENGTH  :  LENGTH 
NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "FAN  IN  =  "); 

put(HENRY  OUT.  FAN  IN); 

OUT  PUT  DATA(I)  TYPE  FAN  IN  :  FAN  IN 
NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "FAN  OUT  =  "): 

putfHENRY  OUT,  FAN  OUT); 

OUT  PUT  DATA(I). TYPE  FAN  OUT  :=  FAN  OUT 
NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "COMPLEXITY  =  "): 

putfHENRY  OUT.  COMPLEXITY); 

OUT  PUT  DATA(I).TYPE  COMPLEXITY  :  =  OOMPLFX17 
NEW  LINEfHENRY  OUT);' 
putfHENRY  OUT,  "GLOBAL  READ  -  "); 

putfHENRY  OUT.  GLOBAL  READ): 

OUT  PUT  DATAflj.TYPE  READ  -  GLOBAL  READ 

NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "GLOBAL  WRITE  -  "); 

putfHENRY  OUT,  GLOBAL  WRITE); 

OUT  PUT  DATA(I)  TYPE  WRITE  GLOBAL  WRIT 

NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "GLOBAL  READ  WRITE  -  "); 
putfHENRY  OUT.  GLOBAL  READ  WRITE): 

OUT  PUT  DATA(I).TYPE  READ  WRITE  GlOBAl  R 
NEW  LINEfHENRY  OUT); 
putfHENRY  OUT.  "GLOBAL  FLOW  ") 

putfHENRY  OUT.  GLOBAL  FLOW). 

OUT  PUT  DATAflj.TYPE  FLOW  GI.OB.Al  Flow 

NEW  LINEfHENRY  OUT.  2). 

END  LOOP: 

PI  Tl HENRY  OUT  " .  I 

oi.I  if  -FIRST  HENRY  (  ALL 
FIRST  HENRY  (  ALL  FALSE 
END  CALCULATE  METRIC 
I  ND  HENRA  \  N  \  [.  A  SIS 
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IN  ROW.  WIDTH  in  INTEGER)  is 


SORKKN  WIDTH  INTEGER  76. 
f  T  NTER  DOS  INTEGER  0. 

TEMP  NAME  ROW  STRING  TYPE 


begin 

K'R  1  IN  1  30  LOOP 
TEMP  NAME(I)  M  IL  CHAR 
EM)  LOOP 

TEMP  N A ME(  1  WIDTH)  \AME(1  WIDTH| 

(  ENTER  POS  -  SCREEN  W  IDTH  2  -  W  IDTH  2: 
SET  (TRSOR  POSICENTER  POS.  IN  ROW  ). 

PI  T(TEMP  NAME) 

NEW  LINE 
end  CENTER  STRING 


-Puts  t  he  header  of  each  data  screen  up  with  an  underline  to  set  it 
--i from  the  dat a 

procedure  SET  I  P  SCREEN) IN  STRING  m  ROW  STRING  TYPE 
STRING  -IZE  in  INTEGER)  is 

begin 

Cl  E \R SCREEN 
»ET  RE\  ERSElON) 

(ENTER  -  T  R  1 N  ( , ,  I N  s  [RING  |  STR  IN< .  - 1  /  E.  I 
'Ll  RE\ ERSMOEE) 

PI  Tl" . . ’ i 

NEW  LINE  (21 
END  SET  I  P  SCREEN 
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HI  MT  HENRA  OPT.  IN  FILE). 

if 

.  [...  OPENiHENRA  OPT.  IN  FILE  HENRY  OPT  NAME); 

•r  i  it 

'Ll  1  I*  -CREENi  HEADER  STRING.  HEADER  SIZE). 

|\  S  "I  R  I N G ( 1  "PACKAGE 

IN  >TRINO,|y  i.O  1NPPT  FILE  NAME(1.  41) 

IN  ->  I  RING  I 
MU  I  INK 
i  I  H  Ip 

I  NIL  ASHEN  (END  OF  F1LE(HENR Y  OPT)  OR  DONE); 
E<  iR  .1  IN  1  E*  LOOP 
IN  "  T R I N ( ; ( J  '  NPLL  CHAR 

I  ND  Li  >OP 

« . F  I  I  INK,  HENRY  OPT  IN  STRING.  NTMBER  OF); 

PI  r  I  INK. IN  STRING) 

POM  PRINIiSTOP  RPNNING  POINT.  DONE); 

II  HI  NNING  Col  NT  0)  AND  (NOT  DONE)  THEN 
Rl  NNING  COI  NT  1 

M  I  I  P  <CREEN|HFADER  STRING.  HEADER  SIZE); 

•TI'I  if 

l  ND  LOOP 

II  not  DONE!  THEN 
'  I  <  iP  1  Rl  NNING  POI  NT  1; 

PM  -I  PRINTlsTOP  RPNNING  <'OPNT  DONE): 

•  n  I  if 

|  !  i  -F  i  HL  NR  N  Ol  T) 

•  ■  t  1  I' I  METRIC  DATA 


'h»-  r>'lat  i'.  e  •  rn f  an-'  n  met  ri<-  Hat  a  This  listing 
n  j.ar-'  •■vft  pr  j n re  fuiKimn  analyzed  with  fur  example  the 
■'in  ,r  niittif -er»  It  al'"  give-  a  verl  al  report  fur  each  function 

■  .  r  ■  ••  tnre 

;  r  -Eire  U  RUE  R  EL  A  FINE;  I)  AT  A  i- 

I N  |  lit  A  I'l  >R  I 
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1 N  |  )l<  A  I'i  iR.A  M  >  A  L  'I  U. 

I  PPI  R  I  IMIT  nit  ant  FLOAT  I  u. 

I  >\\  F  R  I  I  MI  L  ri't  am  FI  O  AT  '  2 A 
:  I  MP  IP  >1  DIR  -  I'R  |NG(  I  lot 

'  I  •  Ip  R!  NAIAl,  IN  REGER  I 
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HEADER  STRING(1  HEADER  SIZE)  -  "THE  RELATIVE  PERFORMANCE  DATA 

SET  IP  SCREEN  (HEADER  STRING  HEADER  SIZE); 

if  PROC  Fl'NC  COUNT  <  16  THEN  STOP  :  -  PROC  Fl'NC  COUNT: 

else  STOP5  -  16: 

end  if; 

PI  TfHENRY  FILE.  "IN  WRITE  RELATIVE  DATA"):  NEW  LINEfHENRY  FILE); 

--name  the  outer  loop  so  that  can  exit  gracefully  when  the  user 
--wants  to  quit 

OUTER  LOOP 
FOR  J  IN  17  LOOP 
CASE  J  is 

when  1  -  -  ROW  STRING)!  6)  :=  "FAN  IN". 

SIZE  :=  6: 

when  2  =  -  ROW  STRINGfl.  7)  :=  "FAN  OUT": 

SIZE  :=  7; 

when  3  --■>  ROW  STRING)  1.  10)  :=  "COMPLEXITY"; 

SIZE  -  10: 

when  -1  ---  >  ROW  STRING (1.11)  .  "GLOBAL  READ"; 

SIZE  11. 

when  5  -  >  ROW  STRING)  1  . 12)  :=  "GLOBAL  W  RITE"; 

SIZE  -  12: 

when  6  -  >  ROW  STRINGfl  17)  :=  "GLOBAL  READ  WRITE": 

SIZE  17: 

when  7  ROW  STRINGfl  11)-  "GLOBAL  FLOW"; 

SIZE  II; 

when  ot her''  -  null : 
end  case 

CENTER  STRINGfROW  STRING.  4.  SIZE); 

FOR  I  IN  1  PROC  FUNC  COUNT  LOOP 
SET  CURSOR  POS(l.  I  -  5): 

REL  ARRAY(I)  NAME  OF  OUT  PUT  DATA(I).NAME  OF; 

PUT(R EL  ARRAY (I)  NAME  OF):  SET  CURSOR  POS(42.  I  -  5).  PUT)"  .  "): 

--iet  up  'he  names  before  write  the  data 

CASE  J  is 

when  1  -  put | REL  ARRAYH)  TYPE  FAN  IN), 

when  2  putlREL  ARR  A  \  ( I)  TYPE  FAN  OUT); 

when  3  ■  pit  |  REL  ARRAYH)  TYPE  COMPLEXITY); 

when  4  put  i  REL  ARR \Y(I)  TYPE  READ), 

when  3  putlREL  ARRAYH)  TYPE  WRITE), 

w  hen  6  putlREL  ARR  A  Y(  I|  TYPE  READ  WRITE), 

when  7  putlREL  \RR  \YH)  TYPE  FLOW  | 

w  hen  ot  hers  null 

end  ‘*ase 

NEW  LINE 

PAUSE  PRINTISTOP  RI\N|\(,  Dt.NEi 


LX  IT  OUTER  LOOP  WHEN  DONE: 
if  (RUNNING  =  0)  AND  (STOP  -  16)  THEN 
STOP  :-■■■  PROC  FUNC  COUNT  -  17; 
elsif  RUNNING  0  THEN 

SET  UP  SCREENfHEADER  STRING,  HEADER  SIZE), 
RUNNING  :  1: 

end  if; 
end  loop: 

end  loop  OUTER  LOOP: 

—set  up  to  loop  again  once  have  cycled  through  to  first  stop 
—count  This  means  have  filled  the  screen  once 


STOP  =1;  RUNNING  =1: 

PAUSE  PRINTfSTOP.  RUNNING.  DONE): 


OLEARSCREEN; 

PUT("The  following  are  the  maximums  for  each  calculation:  "); 
new  line; 


put(  . 

new  line; 
put  ("Fan  In 
put("Fan  Out  :  "); 

put("Complexity  :  ") 
put(”GIobaI  Read  :  "] 
PI  Tf'GIobal  Write 
PUTf'Global  Read  Write 
PUT( "Global  Flow-  :' 


);  putfREL  ARRAYfMAX  FAN  IN). NAME  OF),  new  line; 

");  putfREL  ARR  AY' (MAX  FANOUT).  NAME  OF):  new  line; 

"):  putfREL  ARRAYfMAX  COMPLEXITY). NAME  OF);  NEW  LINE: 

");  putfREL  ARRAYfMAX  READ). NAME  OF).  NEW  LINE; 

:  "):  putfREL  ARRAYfMAX  WRITE). NAME  OF);  NEW  LINE; 

):  putfREL  ARRAYfMAX  READ  WRITE). NAME  OF):  NEW  LINE 
putfREL  ARRAYfMAX  FLOW). NAME  OF)  NEW  LINE: 


new  line: 

Putf" . 

new  line: 


STOP  -1:  RUNNING  :=  1; 

PAUSE  PRINTfSTOP,  RUNNING.  DONE); 

SET  UP  SCREENf HEADER  STRING,  HEADER  SIZE): 


-calculate  the  indicator  numbers  so  that  can  determine  the  relative 
-performance  of  each  procedure  function  within  each  category 


FOR  I  IN  1  PROC  FUNC  COUNT  LOOP 
if  REL  ARRAYfljTYPE  FLOW  0.0  THEN 
INDICATORl  :  =  REL  ARR A Y(I).TYPE  COMPLEXITY 
REL  ARRAY(I).TYPE  FLOW; 
else  INDICATORl  -  REL  ARRAY(l)  TYPE  COMPLEXITY; 
end  if 

if  REL  ARR  AYfl)  TYPE  FAN  OUT  0.0  THEN 
INDICATOR1?:  REL  ARR AY(I). TYPE  FAN  IN 

REL  ARR  AYfl)  TYPE  FAN  OUT 
e|-e  INDICATOR?  REL  ARRAY  fl)  TYPE  FAN  IN 

end  if 

if  REL  ARRAYfD  TYPE  WRITE  0.0  THEN- 
INDICATORS  REL  ARR  AY  (II  TYPE  READ 
REL  ARRAY  (!)  TYPE  WRITE 
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'IT  II*  m  RKKNUIKMH  R  'THING  1IKMHK  'l/l) 

--»<•(  up  t  i'\il  yriM  •  <*f 'j  1 1  v  *  Iwn  ih*1  ijs.-r  »nnl>  i"  •jmi 


GR  A  PH  loop 
FOR  J  IN  I  7  LOOP 
<A  '  I  J  is 

»h«*n  I  ROW  STRING!  I  6) 
SIZE  r. 

whfn  2  ROW  STR|N(,(i  7) 

SIZK  7. 

vshrn  ?,  •  ROW  STR|NG(1  10) 

SIZK  |o. 

when  1  ROW  STRING(1  1 1 ) 

SIZK  ll. 

wh<-n  ■">  ROW  STRINC;(1  ] 2 ) 
SIZK  12. 

w  h  »■  n  6  ■  ROW  STRING(1  17) 

SIZK  17 

whrn  7  •  ROW  STRING)  I ..  1 1 ) 

SIZK  11 


KAN  IN" 

"PAN  Ol  T". 

"complexity" 

"GLOBAL  RKAD" 
"GLOBAL  WRITE" 
"GLOBAL  READ  WRITE". 
"GLOBAL  FLOW"; 
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w  h  ••  ri  I  ( >  K  K  N  PACKAGE 

if  (  At)Jl  ST  LEXEME(LEXEME.  SIZE)  "package")  then 
CONSUME  TRUE. 

•■mi  if 

when  TOKEN  BODY  -  .» 

if  (  ADJUST  LEXEME)  LEXEME.  SIZE)  =  "bodv”)  then 
CONSUME  TRIE; 
end  if 


when  TOKEN  RANGE 

if  ( ADJUST  LEXEME) LEXEME.  SIZE)  -  "range")  then 
CONST  ME  -  TRUE; 

end  if: 

when  TOKEN  IN  => 

if  (ADJUST  LEXEME(LEXEME.  SIZE)  =  "in")  then 
CONSUME  :=  TRUE: 
end  if: 

when  TOKEN  OUT  -> 

if  (ADJUST  LEXEMEf LEXEME.  SIZE)  =  "out")  then 
CONSUME  :=  TRUE: 
end  if: 

when  TOKEN  SUBTYPE  • 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  "subtspe")  then 
CONSUME  -t  TRUE; 
end  if 

when  TOKEN  TYPE 

if  (ADJUST  LEXEME)  LEXEME  SIZE)  "type"  |  t  hen 
CONSUME  TRUE 
end  if: 


when  TOKEN  IS 

if  (  adjust  lexeme) lexeme  SIZE  | 

CONSUME  TRUE 

end  if 

when  TOKEN  NULL 

if  (ADJUST  LEXEME) LUXE MT  M/.T  i 
CONSUME  TRIE 
end  if 
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when  TOKEN  ENTRY  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "entry")  then 
CONSUME  —  TRUE, 
end  if; 


when  TOKEN  ACCEPT  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  =  "accept")  then 
CONSUME  :  =  TRUE; 

end  if; 


when  TOKEN  DELAY  =  > 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "delay")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  SELECT  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "select")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  TERMINATE  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "terminate")  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  ABORT  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "abort")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  SEPARATE  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "separate")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  RAISE  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "raise")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  GENERIC  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "generic")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  AT  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "at")  then 
CONSUME  :=  TRUE; 

end  if; 

when  TOKEN  REVERSE  => 
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if  (ADJUST _LEXEME(LEXEME,  SIZE)  =  "reverse")  then 
CONSUME  :=  TRUE; 

end  if; 


when  TOKEN  DO  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "do")  then 
CONSUME  :=  TRUE; 
end  if; 


when  TOKEN  GOTO  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  =  "goto")  then 
CONSUME  :=  TRUE; 
end  if; 


when  TOKEN  OF  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  =  "of)  then 
CONSUME  :=  TRUE; 
end  if; 


when  TOKEN  ALL  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "all")  then 
CONSUME  :=  TRUE; 
end  if; 


when  TOKEN  PRAGMA  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "pragma")  then 
CONSUME  :=  TRUE; 
end  if; 


when  TOKEN  AND  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "and")  then 
CONSUME  :  =  TRUE: 

end  if; 

OPERATOR  METRIC(TOKEN  AND.  CONSUME,  RESERVE  WORD  TEST); 
when  TOKEN  OR  => 

if  (ADJUST"  LEXEMEfLEXEME,  SIZE)  =  "or")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRIC(TOKEN  OR,  CONSUME.  RESERVE  WORD  TEST); 


when  TOKEN  NOT  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "not")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRlC(TOKEN  NOT.  CONSUME,  RESERVE  WORD  TEST); 
when  TOKEN  XOR  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "xor")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  XOR.  CONSUME,  RESERVE  WORD  TEST); 
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when  TOKEN  MOD  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "mod")  then 
CONSUME  :=  TRUE; 

end  if; 

OPERATOR  METRICfTOKEN  MOD,  CONSUME,  RESERVE  WORD  TEST); 
when  TOKEN  REM  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  =  "rem")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  REM,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  ABSOLUTE  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "a.bs")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  ABSOLUTE,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  ASTERISK  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "*")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  ASTERISK,  CONSUME,  RESERVE  WORD  TEST); 
when  TOKEN  SLASH  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  -  "/")  then 
CONSUME  :=  TRUE; 

end  if; 

OPERATOR  METRICfTOKEN  SLASH,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  EXPONENT  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "**")  then 
CONSUME  ;=  TRUE; 
end  if; 

OPERATOR  METRIC(TOKEN  EXPONENT,  CONSUME.  RESERVE  WORD  TEST); 
when  TOKEN  PLUS  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "  +  ")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRIC(TOKEN  PLUS,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  MINUS  -> 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "-")  then 
CONSUME  .  =  TRUE; 
end  if; 

OPERATOR  METRICITOKEN  MINUS.  CONSUME.  RESERVE  WORD  TEST); 


when  TOKEN  AMPERSAND  -  > 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "*")  then 
CONSUME  -  TRUE; 


end  if; 

OPERATOR  METRICfTOKEN  AMPERSAND,  CONSUME,  RESERVE  WORD  TEST); 


when  TOKEN  EQUALS  => 

if  (ADJUST  LEXEME(LEXEME.  SIZE)  =  "=")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  EQUALS,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  NOT  EQUALS  => 

if  ( ADJUST  LEXEMEfLEXEME,  SIZE)  =  "/=")  then 
CONSUME  :=  TRUE; 

end  if; 

OPERATOR  METRICfTOKEN  NOT  EQUALS,  CONSUME,  RESERVE  WORD  TEST); 


when  TOKEN  LESS  THAN  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  "<")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  LESS  THAN,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  LESS  THAN  EQUALS  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  "<=")  then 
CONSUME  :=  TRUE; 

end  if; 

OPERATOR  METRICfTOKEN  LESS  THAN  EQUALS,  CONSUME.  RESERVE  WORD  TEST 


when  TOKEN  GREATER  THAN  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  ">")  then 
CONSUME  :=  TRUE; 
end  if; 

OPERATOR  METRICfTOKEN  GREATER  THAN,  CONSUME,  RESERVE  WORD  TEST); 

when  TOKEN  GREATER  THAN  EQUALS  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  ">  =  ")  then 
CONSUME  ;=  TRUE; 

end  if; 

OPERATOR  METRICfTOKEN  GREATER  THAN  EQUALS,  CONSUME,  RESERVE  WORD J 

when  TOKEN  ASSIGNMENT  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  ":  =  ")  then 
CONSUME  :=  TRUE; 

OPERATOR  METRICfTOKEN  ASSIGNMENT,  CONSUME.  RESERVE  WORD  TEST); 
end  if; 


when  TOKEN  COMMA  =  > 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  ",")  then 
CONSUME  ;=  TRUE; 

end  if; 

when  TOKEN  SEMICOLON  => 

if  (ADJUST  LEXEMEfLEXEME.  SIZE)  =  ";")  then 


UPDATE  LINE  COUNT; 

CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  PERIOD  => 

if  ( ADJUST  LEXEME(LEXEME,  SIZE)  =  then 
CONSUME  :  =  TRUE; 
end  if; 

when  TOKEN  LEFT  PAREN  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  =  »(")  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  RIGHT  PAREN  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  -  ")»)  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  COLON  => 

if  (ADJUST  LEXEMEfLEXEME,  SIZE)  =  ":")  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  APOSTROPHE  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "’")  then 
CONSUME  :  =  TRUE; 

end  if; 

when  TOKEN  RANGE  DOTS  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "..")  then 
CONSUME  :=  TRUE: 
end  if; 

when  TOKEN  ARROW  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  "  =  >»)  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  BAR  => 

if  (ADJUST_LEXEME(LEXEME,  SIZE)  -  "|")  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  BRACKETS  => 

if  (ADJUST' LEXEMEfLEXEME,  SIZE)  =  •'<>")  then 
CONSUME  :=  TRUE; 
end  if; 

when  TOKEN  LEFT  BRACKET  => 

if  (ADJUST  LEXEME(LEXEME.  SIZE)  =  "<<")  then 
CONSUME  :=  TRUE; 
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when  TOKEN  RIGHT  BRACKET  => 

if  (ADJUST  LEXEME(LEXEME,  SIZE)  =  ">>")  then 
CONSUME  :=  TRUE; 
end  if; 

when  others  =>  null; 
end  case; 

ADJUST  TOKEN  BUFFER(CONSUME,  RESERVE  WORD  TEST), 

return  (CONSUME); 
end  BYPASS; 


—  this  procedure  tests  all  identifiers  to  verify  they  are  not  reserved 

—  words.  The  most  common  reserved  words  are  tested  first  and  the  process 

—  halts  when  a  match  is  made  or  the  test  fails. 

procedure  CONDUCT  RESERVE  W'ORD  TEST(CONSlME  :  in  out  boolean) 
begin 

RESERVE  WORD  TEST  :=  TRUE; 

for  RESERVE  WORD  INDEX  in  TOKEN  END.  TOKEN  ABSOLUTE  loop 
if  (BYPASS(RESERVE  WORD  INDEX))  then 
CONSUME  :  =  FALSE; 
end  if; 

exit  when  not  CONSUME; 
end  loop; 

RESERVE  WORD  TEST  =  FALSE; 
end  CONDUCT  RESERVE  WORD  TEST; 

end  BYPASS  FUNCTION; 


-  TITLE:  AN  ADA  SOFTW  ARE  METRIC 

-  MODULE  NAME:  PACKAGE  PARSER  0 

-  DATE  CREATED:  09  OCT  86 

-  LAST  MODIFIED:  30  MAY  87 

-  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

LCDR  PAUL  M.  HERZIG 

-  DESCRIPTION:  This  package  contains  eight  functions  that 

make  up  the  highest  level  productions  for  our  top-down, 
recursive  descent  parser. 


with  PARSER  1,  PARSER  2,  PARSER  3,  HENRY  GLOBAL,  HENRY,  BYPASS  FUNCTION. 

HALSTEAD  METRIC,  GLOBAL  PARSER,  GLOBAL.  TEXT  10; 
use  PARSER  1,  PARSER  2,  PARSER  3.  HENRY  GLOBAL,  HENRY,  BYPASS  FUNCTION, 
HALSTEAD  METRIC,  GLOBAL  PARSER,  GLOBAL,  TEXT  10; 

package  PARSER  0  is 
function  COMPILATION  return  boolean; 
function  COMPILATIONUNIT  return  boolean; 
function  CONTEXT  CLAUSE  return  boolean; 
function  BASIC_UNIT  return  boolean; 
function  LIBRARY_UNIT  return  boolean; 
function  SECONDARY  UNIT  return  boolean; 
function  LIBRARY  UNIT  BODY  return  boolean; 
function  SUBUNIT  return  boolean; 
end  PARSER  0; 


package  body  PARSER  0  is 

-  COMPILATION  ~>  [COMPILATION  UNIT  + 
function  COMPILATION  return  boolean  is 
begin 

put("In  compilation  "):  new  line; 

put(RESULT  FILE.  "In  compilation  ");  new  line(RESULT  FILE); 
if  (COMPILATION  UNIT)  then 
while  (COMPILATION  UNIT)  loop 
null; 

end  loop: 
return  (TRUE); 
else 

return  (FALSE); 
end  if: 

end  COMPILATION; 


-  COMPILATION  UNIT ->  CONTEXT  CLAUSE  BASIC  UNIT 
function  COMPILATION  UNIT  return  boolean  is 
begin 

put  (RESULT  FILE.  "In  compilation  unit  ");  new  line(RESULT  FILE); 
if  (CONTEXT  CLAUSE)  then 
if  (BASIC  UNIT)  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if: 
else 

return  (FALSE); 
end  if: 

end  COMPILATION  UNIT: 


-  CONTEXT  CLAUSE  ~>  with  WITH  OR  USE  CLAUSE  use  WITH  OR  USE  CLAUSE  * 
function  CONTEXT_CLAUSE  return  boolean  is 
begin 

put(RESULT  FILE,  "In  context _clause  ");  new_line(RESULT_FILE); 
while  (BYPASS(TOKEN  WITH))  loop 
if  not  (WITH  OR  USE'CLAUSE)  then 
SYNTAX  ERROR("Context  clause"); 
end  if; 

while  (BYPASS(TOKEN  USE))  loop 
if  not  (W  ITH  OR  USE  CLAUSE)  then 
SYNTAX  ERROR("Context  clause"); 
end  if; 

end  loop;  —  inner  while  loop 

end  loop;  —  outer  while  loop 

return  (TRUE); 
end  CONTEXT  CLAUSE; 


-  BASIC  UNIT  ~>  LIBRARY  UNIT 
~>  SECONDARY  UNIT 
function  BASIC  UNIT  return  boolean  is 
begin 

put(RESULT  FILE,  "In  basic  unit  ");  new  Jine(RESULT  FILE); 
if  (LIBRARY  UNIT)  then 
return  (TRUE); 

elsif  (SECONDARY  UNIT)  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if; 

end  BASIC  UNIT; 


-  LIBRARY  UNIT  -->  procedure  PROCEDURE  UNIT 
function  FUNCTION  UNIT 
~>  package  PACKAGE  DECLARATION 
-->  generic  GENERIC  DECLARATION 
function  LIBRARY  UNIT  return  boolean  is 
begin 

put(RESULT_FILE.  "In  library  unit  "};  new _line(RESULT  FILE); 
if  (BYPASS(TOKEN  PROCEDURE))  then” 

DECLARE  TYPE  .=  PROCEDURE  DECLARE; 
if  (PROCEDURE  UNIT)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Library  unit"); 
end  if;  —  if  procedure  unit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 


DECLARE  TYPE  ;=  FUNCTION  DECLARE; 
if  (FUNCTION  UNIT)  then 
return  (TRUE); 
else 

SYNTAX_ERROR("Library  unit"); 
end  if;  --  if  function_unit  statement 

elsif  (BY  PASS(TOKEN  PACKAGE))  then 
DECLARE  TYPE  ;  =  PACKAGE  DECLARE; 
if  (PACKAGE  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR) "Library  unit"); 
end  if;  —  if  package  declaration 

elsif  (BYPASS(TOKENGENERIC))  then 
if  (GENERIC  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Library  unit"); 
end  if;  --  if  generic  declaration 

else 

return  (FALSE); 
end  if; 

end  LIBRARY  UNIT; 


-  SECONDARY  UNIT  ~>  LIBRARY  UNIT  BODY 
~>  SUBUNIT 

function  SECONDARY  UNIT  return  boolean  is 
begin 

put(RESULT  FILE,  "In  secondary  unit  ");  new  line(RESULT  FILE); 
if  (LIBRARY  UNIT  BODY)  then 
return  (TRUE); 
elsif  (SUBUNIT)  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if; 

end  SECONDARY  UNIT; 


-  LIBRARY  UNIT  BODY  ~>  procedure  PROCEDURE  UNIT 
~>  function  FUNCTION  UNIT 
~>  package  PACKAGE  DECLARATION 
->  generic  GENERIC  DECLARATION 
function  LIBRARY  UNIT  BODY  return  boolean  is 
begin 

put(RESULT  FILE.  "In  library  unit  body  ");  new  line(RESULT  FILE) 
if  (BYPASSfTOKEN  PROCEDURE))  then 
DECLARE  TYPE  =  PROCEDURE  DECLARE; 
if  (PROCEDURE  UNIT)  then 
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return  (TRUE); 
else 

SY  NTAX_ERROR("Library  unit  body"); 

end  if;  --  if  procedure  unit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 
DECLARE  TYPE  :=  FUNCTION  DECLARE; 
if  (FUNCTION  UNIT)  then 
return  (TRUE); 
else 

SYNTAX_ERROR("Library  unit  body"); 
enc^  if;  --  if  functionunit  statement 

elsif  (BYPASS(TOKEN  PACK  AGE))  then 
DECLARE  TYPE  :=  PACKAGE  DECLARE; 

HENRY  WRITE  ENABLE  :=  TRUE; 

put  (result  file,  "true");  new_line(result  file); 

if  (PACKAGE  DECLARATION)  then- 
return  (TRUE); 
else 


SYNTAX_ERROR("Library  unit  body"); 
enci  if;  --  if  package_declaration 

else 

return  (FALSE); 

en<i  if;  —  if  bypass(token  procedure) 

end  LIBRARY  UNIT  BODY; 


-  SUBUNIT  ~>  separate  (NAME)  PROPER  BODY 
function  SUBUNIT  return  boolean  is 
begin 

put(RESULT  FILE.  "In  subunit  ");  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  SEPARATE))  then 
if  (BYPASS(TOKEN  LEFT  PAREN))  then 
if  (NAME)  then 

if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
if  (PROPER  BODY)  then 
return  (TRUE); 
else 

SYNT  AX  _ERROR(  "Subunit"); 

e°d  if;  —  if  proper_body  statement 

else 

SYNTAX_ERROR(  "Subunit"); 

--  if  bypass(token  right  paren) 
--  if  name  statement 


--  if  bypass(token  left  paren) 


return  (FALSE); 
end  if; 


end  if; 
else 

SYNTAX_ERROR("Subunit"); 

end  if; 
else 

SYNTAX_ERROR("Subunit"), 
end  if; 


--  if  bypass(token  separate) 


end  SUBUNIT; 
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with  PARSER  2,  PARSER  3.  HENRY  GLOBAL,  HENRY,  BYPASS  FUNCTION. 

HALSTEAD  METRIC,  GLOBAL  PARSER,  GLOBAL,  TEXT  IO: 
use  PARSER  2.  PARSER  3.  HENRY  GLOBAL,  HENRY,  BYPASS  FUNCTION, 
HALSTEAD  METR1C.GLOBAL  PARSER,  GLOBAL,  TEXT  IO; 

package  PARSER  1  is 

function  GENERIC  DECLARATION  return  boolean; 

function  GENERIC  PARAMETER  DECLARATION  return  boolean; 

function  GENERIC  FORMAL  PART  return  boolean: 

function  PROCEDURE  UNIT  return  boolean; 

function  SUBPROGRAM  BODY  return  boolean: 

function  FUNCTION  UNIT  return  boolean; 

function  FUNCTION_UNIT_TAIL  return  boolean; 

function  FUNCTION  BODY  return  boolean; 

function  FUNCTIONBODY'TAIL  return  boolean; 

function  TASK  DECLARATION  return  boolean; 

function  TASK_BODY  return  boolean; 

function  TASK_BODY_TAIL  return  boolean; 

function  PACKAGE  DECLAR ATION  return  boolean; 

function  PACKAGE  UNIT  return  boolean; 

function  PACKAGE  BODY'  return  boolean; 

function  PACKAGE  BODY'  TAIL  return  boolean; 

function  PACKAGE  TAIL  END  return  boolean: 

function  DECLARATIVE  PART  return  boolean: 

function  BASIC  DECLARATIVE  ITEM  return  boolean; 

function  BASIC  DECLARATION  return  boolean; 

function  LATER  DECLARATIVE  ITEM  return  boolean: 

function  PROPER  BODY'  return  boolean: 
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function  SEQUENCE  OF  STATEMENTS  return  boolean; 
function  STATEMENT  return  boolean; 
function  COMPOUND  STATEMENT  return  boolean; 
function  BLOCK  STATEMENT  return  boolean: 
function  IF  STATEMENT  return  boolean: 
function  CASE  STATEMENT  return  boolean: 
function  CASE  STATEMENT  ALTERNATIVE  return  boolean; 
function  LOOP  STATEMENT  return  boolean; 
function  EXCEPTION  HANDLER  return  boolean; 
function  ACCEPT  STATEMENT  return  boolean; 
function  SELECT  STATEMENT  return  boolean; 
function  SELECT  STATEMENT  TAIL  return  boolean; 
function  SELECT  ALTERNATIVE  return  boolean; 
function  SELECT  ENTRY  CALL  return  boolean; 
end  PARSER  1: 


package  body  PARSER  1  is 

-GENERIC  DECLARATION ->  GENERIC  PARAMETER  DECLARATION 

GENERIC  FORMAL  PART 
function  GENERIC  DECLARATION  return  boolean  is 
begin 

put(RESULT  FILE. "In  generic  declaration  ");  new  Jine(RESULT  FILE): 

>f  (GENERIC  PARAMETER  DECLARATION)  then 
null: 
end  if: 

if  (GENERIC  FORMAL  PART)  then 
return(TRUE); 

else 

return  (FALSE); 
end  if; 

end  GENERIC  DECLARATION; 


-  GENERIC  PARAMETER  DECLARATION  ~>  IDENTIFIER  LIST:  MODE 

':=  EXPRESSION  ?'  ; 

~>  type  private  DISCRIMINANT  PART  9 
is  PRIVATE  TYPE  DECLARATION  ; 

—  :>  type  private  DISCRIMINANT  PART  ? 

is  GENERIC  TYPE  DEFINITION  ; 

—  >  with  procedure  PROCEDURE  L'NIT 

with  function  FUNCTION  UNIT 

function  GENERIC  PARAMETER  DECLARATION  return  boolean  is 
begin 

put(RESULT_FILE.  "In  generic  parameter  declaration  ");  new  line(RESULT  FILE) 
if  (IDENTIFIER  LIST)  then 
if  (BYPASS(TOKEN  COLON))  then 
if  (MODE)  then 
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null; 

end  if;  --  if  mode  statement 

if  (NAME)  then  —  check  for  type  mark 

if  (BYPASS(TOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
null; 
else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  --  if  expression  statement 

end  if;  --  if  bypass(token_assignment) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  --  if  bypass(token_semicolon) 

else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  --  if  type  mark  statement 

else 

SYNTAX  ERROR("Generic  parameter  declaration"); 
end  if;  —  if  bypass(token  colon) 

elsif  (BYPASS(TOKEN  TYPE))  then 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
if  (DISCRIMINANT  PART)  then 
null; 

end  if;  —  if  discriminant  part 

if  (B YP A SS ( T OKEN  IS) )  then 
if  (PRIVATE  TYPE  DECLARATION)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Generic  parameter  declaration"); 
end  if;  -- if  bypassjtoken  semicolon) 

elsif  (GENERIC  TYPE  DEFINITION)  then” 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  —  if  bypass  (token  semicolon) 

else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  —  if  private  type  declaration 

else 

SYNTAX_ERROR("Generic  parameter  declaration"); 
end  if;  —  if  bypass(token  is) 

else 

SYNTAX  ERROR("Generic  parameter  declaration"); 
end  if;  —  if  bypass(token  identifier) 

elsif  (BYPASS(TOKEN  WITH))  then 
if  (BYPASSfTOKEN  PROCEDURE))  then 
DECLARE  TYPE  :=  PROCEDURE  DECLARE; 
if  (PROCEDURE  UNIT)  then 


return  (TRUE); 
else 

NTAX_ERROR("Generic  parameter  declaration"); 

‘f:  —  if  procedureunit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 
DECLARE  TYPE  :  =  FUNCTION  DECLARE; 
if  (FUNCTION  UNIT)  then 
return  (TRUE); 
else 

S\  NTAX_ERROR("Generic  parameter  declaration"); 
en<f  if;  --  if  functionunit  statement 

else 


S\ NTAX_ERROR("Generic  parameter  declaration"); 
end  if;  —  if  bypass(token  procedure) 

else 

return  (FALSE); 

end  if;  ~  if  identifier  list 

end  GENERIC  PARAMETER  DECLARATION; 


-  GENERIC  FORMAL  PART  ~>  procedure  PROCEDURE  UNIT 
->  function  FUNCTION  UNIT 
->  package  PACKAGE  DECLARATION 
function  GENERIC  FORMAL  PART  return  boolean  is 

begin 

put(RESULT  FILE,  "In  generic  formal  part  ");  new  line(RESULT  FILE); 
if  IBYPASSfTOKEN  PROCEDURE))  then 
DECLARE  TYPE  :=  PROCEDURE  DECLARE; 
if  (PROCEDURE  UNIT)  then 
return  (TRUE); 
else 

SV  NTAX_ERROR("Generic  formal  part"); 
en<f  if;  —  if  procedure  unit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 
DECLARE  TYPE  ;=  FUNCTIONDECLARE; 
if  (FUNCTION  UNIT)  then 
return  (TRUE); 
else 

S\ NTAX_ERROR("Generic  formal  part"); 
er,d  if:  --  if  function  unit  statement 

elsif  (BYPASS(TOKEN  PACK  AGE))  then 
DECLARE  TYPE  :=  PACKAGE  DECLARE; 
if  (PACKAGE  DECLARATION)  then 
return  (TRUE); 
else 

S\ NTAX_ERROR("Generic  formal  part"); 

if:  --  if  package  declaration 

else 

return  (FALSE); 
end  if; 

end  GENERIC  FORMAL  PART; 
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-  PROCEDURE  UNIT  ->  identifier  (FORMAL  PART  ?!  is  SUBPROGRAM  BODY 

—  >  identifier  FORMAL  PART  ?]  ; 

—  >  identifier  FORMAL  PART  ?]  renames  NAME  ; 
function  PROCEDUREL'NIT  return  boolean  is 

begin 

put(RESULT  FILE,  "In  procedure  unit  ");  new  line(RESULT  FILE); 

DECLARATION  :=  TRUE; 

HENRY  WRITE  ENABLE  :=  TRUE; 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
if  PACKAGE  BODY  DECLARE  then 
WRITE  HENRY  DATAfLOCAL  DECLARE,  DUMMY  LEXEME, 

PROCEDURE  TYPE,  NONE,  LAST  RECORD); 

end  if; 

SCOPE  LEVEL  :=  SCOPE  LEVEL  -*■  1; 
if  (FORMAL  PART)  then 
null; 

end  if;  —  if  formal  part  statement 

if  (BYPASSfTOKEN  IS))  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME.  END  PARAM  DECLARE, 
NONE,  NEXT  HEN); 

CREATE  NODEfNEXT  HEN,  LAST  RECORD); 

WRITE  LINE  COUNT(L AST  RECORD. NOMEN,  HENRY  LINE  COUNT, 
DUMMY9s,  NEXT  LINE); 
if  (SUBPROGRAM  BODY)  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME,  END  PROCEDURE  CALL, 
NONE.  NEXT  HEN); 

CREATE  NODE(NEXT  HEN,  LAST  RECORD); 

WRITE  LINE  COlNT(DUMMY  LEXEME,  DUMMY9s,  HENRY  LINE  COUNT. 
NEXT  LINE); 

CREATE  LINE  COUNT  NODE(NEXT  LINE,  LAST  LINE); 

SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
return  (TRUE); 
else 

SYNT AX _ERROR(" Procedure  unit"): 
end  if;  --  if  subprogram  body  statement 

elsif  (BYPASSfTOKEN  SEMICOLON))  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
return  (TRUE); 

elsif  (BYPASSfTOKEN  REN  AMES))  then 
if  (NAME)  then 

if  (BYPASSfTOKEN  SEMICOLON))  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
return  (TRUE); 
else 

SYNTAX  ERR  OR  ("Procedure  unit"); 
end  if;  —  if  bypassftoken  semicolon) 

else 

SYNTAX  ERROR  ("Procedure  unit"); 
end  if;  --  if  name  statement 


—  if  bypass(token  is) 


end  if: 
else 

return  (FALSE); 
end  if:  —  if  bypass(token  identifier) 

end  PROCEDURE  UNIT; 


-  SUBPROGRAM  BODY  ~>  new  NAME  GENERIC  ACTUAL  PART  ?  ; 

—  >  separate  ; 

-->  <>  ; 

->  DECLARATIVE  PART  ?  begin  SEQUENCE  OFSTATEMENTS 
(exception  EXCEPTION  HANDLER  -  ?  end  (DESIGNATOR  ?|  ; 
~>  NAME ; 

function  SUBPROGRAM  BODY  return  boolean  is 

NAME  POINTER  :  POINTER; 

begin 

put(RESl'LT  FILE.  "In  subprogram  body  ");  new  line(RESULT  FILE); 

NAME  POINTER  :  =  NEXT  HEN; 

DECLARATION  :  =  TRUE; 
if  (BYPASS(TOKEN  NEW) (then 
HENRY  WRITE  ENABLE  :=  FALSE; 
if  (NAME)  then 

if  (GENERIC  ACTUAL  PART)  then 
null; 

end  if;  —  if  generic  actual  part 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Subprogram  body"); 
end  if;  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR("Subprogram  body"); 
end  if:  —  if  name  statement 

elsif  (BYPASS(TOKEN  SEPARATE))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Subprogram  body"); 
end  if;  —  if  bypass(token  semicolon) 

elsif  (BYPASS (TOKEN  BRACKETS))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Subprogram  body"); 
end  if;  —  if  bypassjtoken  semicolon) 

elsif  (DECLARATIVE  PART)  then 

WRITE  HENRY  DATAfBLANK.  DUMMY  LEXEME,  END  DECLARATIONS, 

NONE,  NEXT  HEN): 

CREATE  NODEfNEXT  HEN,  LAST  RECORD); 


if  (BY  PASS(TOKEN  BEGIN))  then 
DECLARATION  -  FALSE; 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null: 

end  loop; 
else 

SY NTAX_ERROR("Subprogram  body"); 
end  if;  --  if  exception  handler  statement 

end  if:  --  if  bypass(token  exception) 

if  (BYPASS(TOKEN  END))  then 

HENRY'  WRITE  ENABLE  ;=  FALSE; 
if  (DESIGNATOR)  then 
null; 

end  if;  —  if  designator  statement 

if  (BYPASS(TOKEN  SEMICOLON))  then 
DECLARATION  =  TRUE; 
return  (TRUE); 

else 

SY  NT  AX  ERROR("Subprogram  body"); 
end  if;  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR(''Subprogram  body"); 
end  if;  —  if  bypass(token  end) 

else 

SYNTAX  ERROR("Subprogram  body"); 
end  if;  --  if  sequence  of  statements 

else 

SY  NTAX  ERROR("Subprogram  body"); 
end  if;  —  if  bypassjtoken  begin) 

Isif  (BYPASS(TOKEN  BEGIN))  then 
DECLARATION  :=  FALSE; 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME  END  DECLARATIONS 
NONE.  NEXT  HEN); 

CREATE  NODE(NEXT  HEN,  LAST  RECORD); 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null; 

end  loop; 
else 

SY  NTAX  ERROR("Subprogram  body"); 
end  if;  —  if  exception  handler  statement 

end  if;  —  if  bypass(token  exception) 

if  (BY  PASSfTOKEN  END))  then 
HENRY  WRITE  ENABLE  =  FALSE 
if  (DESIGNATOR)  then 


null: 
end  if: 


—  if  designator  statement 


if  (BYPASS(TOKEN  SEMICOLON))  then 
DECLARATION  :=  TRIE; 
return  (TRUE); 
else 

S\  NTAX  ERROR("Subprogram  body"); 
end  if:  —  if  bypassftoken  semicolon) 

else 

S\  NTAX  ERROR  ("Subprogram  body"); 

if-  --  if  bypass(token  end) 

else 

S\  NTAX  ERROR( "Subprogram  body"); 
en<f  if;  --  if  sequence  of  statements 

elsif  (NAME)  then 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR  ("Sub  program  body"); 
en<i  if;  --  if  bypass(token  semicolon) 

else 

return  (FALSE); 

en<i  if:  —  if  byp*ss(token  new) 

end  SUBPROGRAM  BODY; 


-  FUNCTION  UNIT  ~>  DESIGNATOR  FUNCTION  UNIT  TAIL 
function  FL  NOTION  UNIT  return  boolean  is 
begin 

put(RESULT  FILE.  "In  function  unit  ");  new  line(RESULT  FILE); 

DECLARATION  :=  TRUE; 

HENRY  WRITE  ENABLE  =  TRUE; 
if  (DESIGNATOR)  then 
if  PACKAGE  BODY  DECLARE  then 

WRITE  HENRY  DATAfLOCAL  DECLARE.  DUMMY  LEXEME.  FUNCTION  TYPE 
NONE,  LAST  RECORD). 

WRITE  LINE  COUNT(LAST  RECORD  NOMEN.  HENRY  LINE  COUNT. 
DUMMY9s,  NEXT  LINE); 

end  if; 


SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
if  (FUNCTION  UNIT  TAIL)  then 

SCOPE  LEVEL  ;=  SCOPE  LEVEL  -  1, 
return  (TRUE): 
else 


S\  NTAX  ERROR("Function  unit") 
end  if; 
else 

return  (FALSE): 
end  if; 

end  FUNCTION  UNIT; 
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-  FUNCTION  UNIT  TAIL  ~>  is  new  NAME  GENERIC  ACTUAL  PART  ?j  ; 

FORMAL  PART  ?'  return  NAME  FUNCTION  BODY 
function  FL'NCTION  UNIT  TAIL  return  boolean  is 
begin 

put(RESULT  FILE.  "In  function  unit  tail  ");  new JinefRESULT  FILE); 
if  (BYPASSfTOKEN  IS))  then 

FUNCTION  PARAM  DECLARE  :=  TRUE; 
if  (BYPASSfTOKEN  NEW))  then 
if  (NAME)  then 

if  (GENERIC  ACTUAL  PART)  then 
null; 

end  if;  —  if  generic  actual  part 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SY  NTAX_ERROR("Function  unit  tail"); 
end  if;  —  if  bypass(token_semicolon) 

else 

SYNTAX_ERROR("Function  unit  tail"); 
end  if;  —  if  name  statement 

else 

SYNTAX  ERROR("Function  unit  tail"); 
end  if;  —  if  bypassftoken  new) 

elsif  (FORMAL  PART)  then 
FUNCTION  PARAM  DECLARE  :=  FALSE; 
if  (BYPASSfTOKEN  RETURN))  then 
if  (NAME)  then  —  check  for  type  mark 

if  (FUNCTION  BODY)  then 
return  (TRUE); 
else 

SYNTAX_ERROR("Function  unit  tail"); 

end  if;  —  if  function  body  statement 

else 

SY  NTAX_ERROR("Function  unit  tail"); 
end  if;  —  if  type  mark  statement 

else 

SY  NTAX_ERROR("Function  unit  tail"); 
end  if;  —  if  bypass(token  return) 

elsif  (BYPASS(TOKEN  RETURN))  then 
if  (NAME)  then  —  check  for  type  mark 

if  (FUNCTION  BODY)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Function  unit  tail"); 
end  if;  —  if  function  body  statement 

else 

SYNTAX  ERRORf'Function  unit  tail"); 
end  if;  —  if  type  mark  statement 

else 

return  (FALSE); 

end  if;  —  if  bypass(token  is) 

end  FUNCTION  UNIT  TAIL; 
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-FUNCTION  BODY  —  >  is  FUNCTION  BODY  TAIL  ° 

function  FUNCTION  BODY  return  boolean  is 
begin 

putfRESULT  FILE,  "In  function  body  ");  new  line(RESULT  FILE); 
if  (BYPASSfTOKEN  IS))  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME,  END  PARAM  DECLARE,  NONE.  NEXT 
CREATE  NODE(NEXT  HEN.  LAST  RECORD); 
if  (FUNCTION  BODY  TAIL)  then 

WRITE  LINE  COl'NTf DUMMY  LEXEME,  DUMMY9s,  HENRY  LINE  COUNT. 

NEXT  LINE); 

CREATE  LINE  COUNT  NODE(NEXT  LINE,  LAST  LINE); 

WRITE  HENRY  DATA(BLANK.  DUMMY  LEXEME  END  FUNCTION  TYPE, 

NONE,  NEXT  HEN); 

CREATE  NODEfNEXT  HEN.  LAST  RECORD); 
end  if; 

return  (TRUE). 

elsif  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if; 

end  FUNCTION  BODY 


-FUNCTION  BODY  TAIL-  separate. 

->  SUBPROGRAM  BODY 
-----  NAME; 

function  FUNCTION  BODY  TAIL  return  boolean  is 
begin 

put(RESULT  FILE,  "In  function  body  tail  ");  new  line(RESl  LT  FILL-), 
if  (BYPASSfTOKEN  SEPARATE))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERRORf'Function  body  tail"); 
end  if;  -  if  bypass(token  semicolon) 

elsif  (BYPASSfTOKEN  BRACKETS))  then 
if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Function  body  tail"), 
end  if  --  if  bypass) token  semicolon) 

elsif  (SUBPROGRAM  BODY)  then 
return  (TRUE); 
elsif  (NAME)  then 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE): 


else 

SYNTAX  ERROR("Function  body  tail"); 
end  if;  ~  if  bypass(token  semicolon) 

else 

return  (FALSE); 

end  if;  —  if  bypass(token  separate) 

end  FUNCTION  BODY  TAIL; 


-TASK  DECLARATION  -  >  body  TASK  BODY  ; 

~>  'type  0  identifier  is  [ENTRY  DECLARATION  * 

REPRESENTATION  CLAUSE!*  end  identifier  ?[  0 
function  TASK  DECLARATION  return  boolean  is 
begin 

put(RESULT  FILE,  "In  task  declaration  ");  new  line(RESULT  FILE); 
DECLARATION  :=.  TRUE;' 
if  |BYPASS(TOKEN  TYPE))  then 
null: 

end  if;  —  if  by passftoken  type) 

if  (BYPASS(TOKEN  BODY))  then 
if  (TASK  BODY)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Task  declaration"); 
end  if. 
else 

SYNTAX  ERROR("Task  declaration"): 
end  if;  —  if  task  body  statement 

elsif  (BYPASS(TOKEN  IDENTIFIER))  then 
SCOPE  LEVEL  SCOPE  LEVEL  -  I: 
if  (BYPASS(TOKEN  IS))  then 
while  (ENTRY  DECLARATION)  loop 
null. 

end  loop; 

while  (REPRESENTATION  CLAUSE)  loop 
null: 

end  loop; 

if  (BYPASS(TOKEN  END))  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
null; 

end  if;  --  if  bypass(token  identifier) 

if  (BYPASSfTOKEN  SEMICOLON))  then 
SCOPE  LEVEL  SCOPE  LEVEL  -  I 
return  (TRUE); 

else 

SYNTAX  ERRORf’Task  dedarat ion” ) 
end  if.  --  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR  ("Task  declaration") 
end  if  --  if  by  pass) token  end) 
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elsif  (BYPASS(TOKEN  SEMICOLON))  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
return  (TRUE); 
else 

SYNTAX  ERROR("Task  declaration"); 
end  if;  --  if  bypass(token  is) 

else 

return  (FALSE); 

end  if;  --  if  bypassf token _body) 

end  TASK  DECLARATION; 


-  TASK  BODY  ~>  identifier  is  TASK  BODY  TAIL 
function  TASK  BODY  return  boolean  is 
begin 

put(RESULT_FILE,  "In  taskbody  ");  new  line(RESl'LT  FILE); 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
if  (BYPASS(TOKEN  IS))  then 
if  (TASK  BODY  TAIL)  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1: 
return  (TRUE); 
else 

SYNTAX  ERROR("Task  body"); 
end  if;  —  if  task  body  tail  statement 

else 

SYNTAX  ERROR("Task  body"); 
end  if;  —  if  bypass(token  is) 

else 

return  (FALSE); 

end  if;  —  if  bypassf token  identifier) 

end  TASK  BODY; 


—  TASK  BODY  TAIL -->  separate 

~>  DECLARATIVE  PART  ?’  begin  SEQUENCE  OF  STATEMENTS 
exception  EXCEPTION  HANDLER  *  T  end  identifier  9 
function  TASK  BODY  TAIL  return  boolean  is 
begin 

put(RESULT  FILE,  "In  task  body  tail  ”);  new  line(RESULT  FILE); 

DECLARATION  =  TRUE; 
if  (BYPASS(TOKEN  SEPARATE))  then 
return  (TRUE); 

elsif  (DECLARATIVE  PART)  then 
if  (BYPASS(TOKEN  BEGIN))  then 
DECLARATION  :  =  FALSE; 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 


null; 

end  loop; 
else 

SYNTAX  ERROR("Task  body  tail"); 
end  if;  —  if  exception  handler  statement 

end  if;  --  if  bypassftoken  exception) 

if  (BYPASS(TOKEN  END))  then 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
null; 

end  if;  --  if  bypass(token  identifier) 

DECLARATION  :=  TRUE; 
return  (TRUE); 
else 

SYNTAX  ERROR("Task  body  tail"); 
end  if:  —  if  bypass(token  end) 

else 

SYNTAX  ERROR("Task  body  tail"); 
end  if:  —  if  sequence  of  statements 

else 

SYNTAX  ERRORfTask  body  tail"); 
end  if;  —  if  bypass(token  begin) 

elsif  (BYPASS(TOKEN  BEGIN))  then 
DECLARATION  :=  FALSE; 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASSfTOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null; 

end  loop; 
else 

SYNTAX  ERRORfTask  body  tail"); 
end  if:  —  if  exception  handler  statement 

end  if;  -- if  bypass(token  exception) 

if  (BYPASS(TOKEN  END))  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
null; 

end  if;  —  if  bypassftoken  identifier) 

DECLARATION  =  TRUE; 
return  (TRUE); 
else 

SYNTAX  ERRORfTask  body  tail"); 
end  if:  —  if  bypassftoken  end) 

else 

SYNTAX  ERRORfTask  body  tail"): 
end  if;  —  if  sequence  of  statements 

else 

return  (FALSE): 

end  if:  —  if  bypassftoken  separate) 

end  TASK  BODY  TAIL; 
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-  PACKAGE  DECLARATION  ~>  body  PACKAGE  BODY 

identifier  PACKAGE  UNIT 

function  PACKAGE  DECLARATION  return  boolean  is 
begin 

put(RESl'LT  FILE,  "In  package  declaration  ");  new  line(RESULT  FILE); 
DECLARATION  TRI  E; 

HENRY  WRITE  ENABLE  :=  TRUE; 
if  (BYPASS(TOKEN  BODY))  then 
P  ACKAGE  BODY  "DECLARE  :=  TRUE; 

HENRY  VVRITE  ENABLE  :  =  FALSE; 
if  (PACKAGE  BODY)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Package  declaration"); 
end  if;  —  if  package  unit  statement 

elsif  (BYPASS(TOKEN  IDENTIFIER))  then 
WRITE  HENRY  DATA(LOCAL  DECLARE.  DUMMY  LEXEME,  PACKAGE  TYPE, 
NONE,  LAST  RECORD); 

SCOPE  LEVEL  :=  SCOPE  LEVEL  -  I; 
if  (PACKAGE  UNIT)  then 
SCOPE  LEVEL  -  SCOPE  LEVEL  -  J; 
return  (TRUE): 
else 

SYNTAX  ERROR("Package  declaration"); 
end  if;  —  if  package  unit  tail  statement 

else 

return  (FALSE), 

end  if:  —  if  bypass(token  package) 

end  PACKAGE  DECLARATION. 


-  PACKAGE  BODY ->  identifier  is  PACKAGE  BODY  TAIL 
function  PACKAGE  BODY  return  boolean  is 
begin 

put(RESULT  FILE,  "In  package  body  ");  new  line(RESULT  FILE); 

if  (BYPASSfTOKEN  IDENTIFIER))  then 
SCOPE  LEVEL  ;=  SCOPE  LEVEL  -  1; 
if  (BYPASS(TOKEN  IS))  then 
if  (PACKAGE  BODY  TAIL)  then 

WRITE  HENRY  DATAfBLANK.  DUMMY  LEXEME.  END  PACKAGE  TYPE. 

NONE,  NEXT  HEN): 

SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1; 
return  (TRUE); 
else 

SYNTAX  ERROR  ("Pack  age  body"), 
end  if.  --  if  package  body  tail  statement 

else 

SYNTAX  ERROR  ("Package  body"): 
end  if:  --  if  bypass(token  is) 

else 


return  (FALSE): 

end  if;  —  if  bypass(token  identifier) 

end  PACKAGE  BODY; 


-  PACKAGE  BODY  TAIL  ~>  separate  ; 

~>  DECLARATIVE  PART  ?  [begin  SEQUENCE  OF  STATEMENTS 
exception  EXCEPTION  HANDLER  -  T-  ?| 
end  identifier  ?!  ; 

function  PACKAGE_BODY_TAIL  return  boolean  is 
begin 

put(RESULT_FILE,  "In  packagebodytail  ");  new  line(RESULT  FILE): 

DECLARATION  :=  TRUE; 
if  (BYPASS(TOKEN  SEPARATE))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Package  body  tail"); 
end  if;  —  if  bypass(token  semicolon) 

elsif  (DECLARATIVE  PART)  then 
DECLARATION  :=  FALSE; 
if  (BYPASS(TOKEN  BEGIN))  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null; 

end  loop; 
else 

SYNTAX  ERRORfPackage  body  tail"); 
end  if;  —  if  exception  handler  statement 

end  if;  —  if  bypass(token  exception) 

if  (BYPASS(TOKEN  END))  then 

HENRY  WRITE  ENABLE  ;=  FALSE; 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
null; 

end  if;  --  if  bypass(token  identifier) 

if  (BYPASS(TOKEN  SEMICOLON))  then^ 

DECLARATION  :=  TRUE: 
return  (TRUE); 
else 

SYNTAX  ERROR("Package  body  tail"); 
end  if;  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERRORfPackage  body  tail"); 
end  if;  --  if  bypass(token  end) 

else 

SYNTAX  ERROR  ("Package  body  tail"): 
end  if;  —  if  sequence  of  statements 

elsif  (BYPASSfTOKEN  END))  then 
HENRY  WRITE  ENABLE  FALSE: 


if  (BYPASS(TOKEN  IDENTIFIER))  then 
null; 

end  if:  —  if  bypass(token  identifier) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
DECLARATION  :=  TRUE; 
return  (TRUE); 
else 

SYNTAX  ERROR) "Package  body  tail"); 
end  if;  —  if  bypass(token  semicolon) 

else 

SYNTAX_ERROR("Package  body  tail"); 
end  if;  —  if  bypassjtoken  begin) 

elsif  (BYPASS(TOKEN  BEGIN))  then 
DECLARATION  :=  FALSE; 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null: 

end  loop; 
else 

SYNTAX  ERROR("Package  body  tail"); 
end  if;  —  if  exception  handler  statement 

end  if;  —  if  bypassftoken  exception) 

if  (BYPASSfTOKEN  END))  then 
HENRY  WRITE  ENABLE  :  =  FALSE; 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
null: 

end  if;  —  if  bypassftoken  identifier) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
DECLARATION  :=  TRUE; 
return  (TRUE); 
else 

SYNTAX  ERROR  ("Pack  age  body  tail"); 
end  if;  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR("Package  body  tail"): 
end  if;  —  if  bypassftoken  end) 

else 

SYNTAX  ERRORfPackage  body  tail"); 
end  if;  --  if  sequence  of  statements 

elsif  (BYPASS(TOKEN  END))  then 

HENRY  WRITE  ENABLE  :=  FALSE; 
if  (BYPASSfTOKEN  IDENTIFIER))  then 

null; 

end  if:  —  if  bypassftoken  identifier) 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRl’E); 
else 

SYNTAX  ERROR  ("Package  body  tail"): 
end  if;  —  if  bypassftoken  semicolon) 

else 
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return  (FALSE); 

end  if.  —  if  by  pass  (token  separate) 

end  PACKAGE  BOD\  TAIL; 


-  PACKAGE  UNIT ->  is  PACKAGE  TAIL  END 
— >  renames  NAME  ; 

function  PACKAGE  UNIT  return  boolean  is 
begin 

put  (RESULT  FILE.  "In  packageunit  ");  new  Jine(RESULTFILE); 
if  (BYPASS (TOKEN  IS))  then 
if  (PACKAGE  TAIL  END)  then 
return  (TRL E): 
else 

SYNTAX  ERROR("Package  unit"); 
end  if; 

els  if  (BYPASS(TOKEN  RENAMES))  then 
if  (NAME)  then 

if  (BYPASS (TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Package  unit"); 
encj  if.  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR  ("Package  unit"); 
end  if-  —  if  name  statement 

else 

return  (FALSE): 

end  if:  -  if  bypass(token  is) 

end  PACKAGE  UNIT: 


-  PACKAGE  TAIL  END  ~>  new  NAME  (GENERIC  ACTUAL  PART  ?(  ; 
->  (BASIC  DECLARATIVE  ITEM]*  (private 

(BASIC  DECLARATIVE  ITEM]*  ?]  end  (identifier 
function  PACKAGE  TAIL  END  return  boolean  is 
begin 

put(RESULT  FILE, "In  package  tailend  ");  new  line(RESULT  FILE); 
if  (BYPASSfTOKEN  NEW))  then 
if  (NAME)  then 

if  (GENERIC  ACTUAL  PART)  then 
null; 

end  if;  -  if  generic  actual  part  statement 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRL  E); 
else 

SYNTAX  ERROR("Package  tail  end"): 
end  if;  —  if  bypassftoken  semicolon) 

else 

SYNTAX  ERROR  ("Package  tail  end"): 


end  if;  —  if  name  statement 

elsif  (BASIC  DECLARATIVE  ITEM)  then 
while  (BASIC  DECLARATIVE  ITEM)  loop 
null; 

end  loop; 

if  (BYPASS(TOKEN  PRIVATE))  then 
while  (BASIC  DECLARATIVE  ITEM)  loop 
null: 

end  loop; 

end  if;  --  if  bypassftoken  private) 

if  (BYPASS(TOKENEND))  then 
HENRY  \VRITE  ENABLE  :=  FALSE; 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
null: 
end  if; 

if  (BYPASS(TOKEN  SEMICOLON))  then 

WRITE  HENRY  DATAfBLANK,  DUMMY  LEXEME,  END  PACKAGE  DECLARE. 
NONE,  NEXT  HEN); 

CREATE  NODEfNEXT  HEN,  LAST  RECORD); 
return  (TRUE); 
else 

SYNTAX  ERROR  ("Pack  age  tail  end"): 
end  if;  —  if  bypass(tokensemicolon) 

else 

SYNTAX  ERROR  ("Package  tail  end"); 
end  if:  —  if  bypass(token  end) 

elsif  (BYPASS(TOKEN  PRIVATE))  then 
while  (BASIC  DECLARATIVE  ITEM)  loop 
null: 

end  loop: 

if  (BYPASSfTOKEN  END))  then 
HENRY  WRITE  ENABLE  :=■  FALSE; 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
null: 
end  if; 

if  (BYPASS(TOKEN  SEMICOLON))  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME.  END  PACKAGE  DECLARE. 
NONE,  NEXT  HEN). 

CREATE  NODEfNEXT  HEN.  LAST  RECORD): 
return  (TRUE); 
else 

SYNTAX  ERROR  ("Package  tail  end"): 
end  if;  —  if  bypassjtoken  semicolon) 

else 

SYNTAX  ERROR) "Package  tail  end"); 
end  if:  —  if  bypass(token  end) 

elsif  (BYPASSfTOKEN  END))  then 
HENRY  WRITE  ENABLE  : -  FALSE; 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
null; 
end  if; 

if  (BYPASSfTOKEN  SEMICOLON))  then 


WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME,  END  PACKAGE  DECLARE, 
NONE,  NEXT  HEN); 

CREATE  NODEfNEXT  HEN.  LAST  RECORD): 
return  (TRUE); 
else 

SYNTAX _ERROR("Package  tail  end"); 
end  if;  —  if  bypass(token  semicolon) 

else 

return  (FALSE); 

end  if;  —  if  bypass(tokennew) 

end  PACKAGE  TAIL  END; 


-  BASIC  DECLARATIVE  ITEM  ~>  BASIC  DECLARATIVE 

~>  REPRESENTATION  CLAUSE 
->  use  WITH  OR  USE  CLAUSE 
function  BASIC  DECLARATIVE_ITEM  return  boolean  is 
begin 

put(RESULT  FILE.  "In  basic  declarative  item  ");  new  line(RESULT  FILE); 
HENRY  WRITE  ENABLE  :  =  TRUE; 
if  (BASIC  DECLARATION)  then 
HENRY  WRITE  ENABLE  :=  FALSE; 
return  (TRUE); 

elsif  (REPRESENTATION  CLAUSE)  then 
return  (TRUE); 

elsif  (BYPASS(TOKEN  USE))  then 
if  (WITH  OR  USE  CLAUSE)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Basic  declarative  item"); 
end  if; 
else 

return  (FALSE); 
end  if; 

end  BASIC  DECLARATIVE  ITEM; 


-  DECLARATIVE  PART- >  [BASIC  DECLARATIVE  ITEM  *  LATER  DECLARATIVE  ITEM 
function  DECLARATIVE  PART  return  boolean  is 
begin 

put(RESULT  FILE.  "In  declarative  part  ");  new  Iine(RESULT  FILE); 
while  (BASIC  DECLARATIVE  ITEM)  loop 
null; 

end  loop: 

while  (UTER  DECLARATIVE  ITEM)  loop 
null: 

end  loop, 
ret  urn  (TRUE); 
end  DECLARATIVE  PART: 


-BASIC  DECLARATION ->  type  TYPE  DECLARATION 
->  subtype  SUBTYPE  DECLARATION 
—  >  procedure  PROCEDL^RE  UNIT 
~>  function  FUNCTION  UNIT 
->  package  PACKAGE  DECLARATION 
->  generic  GENERIC  DECLARATION 
->  IDENTIFIER  DECLARATION 
~>  task  TASK  DECLARATION 
function  BASIC  DECLARATION  return  boolean  is 
begin 

put(RESL'LT_FILE.  "In  basic  declaration  ");  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  TYPE)”)  then 
if  (TYPE  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Basic  declaration"); 
end  if: 

elsif  (BYPASS(TOKEN  SUBTYPE))  then 
if  (SUBTYPE  DECLARATION)  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Basic  declaration"); 
end  if; 

elsif  (BYPASS(TOKEN  PROCEDURE))  then 
DECLARE  TYPE  ;  PROCEDURE  DECLARE: 
if  (PROCEDURE  UNIT)  then 
HENRY  WRITE  ENABLE  ;=  FALSE: 

return  (TRUE); 
else 

SYNTAX  ERROR("Basic  declaration"); 
end  if:  —  if  procedure  unit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 
DECLARE  TYPE  ;=  FUNCTION  DECLARE; 
if  (FUNCTION  UNIT)  then 
HENRY  WRITE  ENABLE  ;=  FALSE; 

return  (TRUE); 
else 

SYNTAX  ERROR("Basic  declaration"); 
end  if;  —  if  function  unit  statement 

elsif  (BYPASS(TOKEN  PACKAGE))  then 
DECLARE  TYPE  ;  =  PACKAGE  DECLARE: 
if  (PACKAGE  DECLARATION)  then 
return  (TRI  E): 
else 

SYNTAX  ERRORf'Basic  declaration”); 
end  if;  —  if  package  declaration 

elsif  (BYPASS(TOKEN  GENERIC))  then 
if  (GENERIC  DECLARATION)  then 
return  (TRl’E); 
else 


SYNTAX  ERROR("Basic  declaration"): 
end  if:  —  if  generic  declaration 

elsif  (IDENTIFIER  DECLARATION)  then 
HENRY  WRITE  ENABLE  :=  FALSE: 
return  (TRUE); 

elsif  (BYPASS(TOKEN  TASK))  then 
DECLARE  TYPE  :=  TASK  DECLARE; 
if  (TASK  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Basic  declaration"); 
end  if: 
else 

return  (FALSE): 
end  if: 

end  BASIC  DECLARATION; 


-LATER  DECLARATIVE  ITEM  -  >  PROPER  BODY 

—  >  generic  GENERIC  DECLARATION 

-  >  use  WITH  OR  USE  CLAUSE 
function  LATER  DECLARATIVE  ITEM  return  boolean  is 
begin 

put(RESULT  FILE,  "In  later  declarative  item  ")  new  line(RESULT  FILE); 
if  (PROPER  BODY')  then  --  check  for  body  declaration 

return  (TRUE); 

elsif  (BYPASS(TOKEN  GENERIC))  then 
if  (GENERIC  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Later  declarative  item"): 
end  if:  —  if  generic  declaration 

elsif  (BYPASS(TOKEN  USE))  then 
if  (WITH  OR  USE  CLAUSE)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Later  declarative  item"); 
end  if:  —  if  with  or  use  clause 

else 

return  (FALSE); 
end  if: 

end  LATER  DECLARATIVE  ITEM: 


-PROPER  BODY-  -  procedure  PROCEDURE  UNIT 

-  function  FUNCTION  UNIT 

-  package  PACKAGE  DECLARATION 

-  ■  task  TASK  DECLARATION 
function  PROPER  BODY’  return  boolean  is 
begin 


put(RESLLT  FILE.  "In  proper  body  "J;  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  PROCEDURE))  then 
DECLARE  TYPE  PROCEDURE  DECLARE 
if  (PROCEDURE  l  NIT)  then 
return  (TRI  E): 
else 

SYNTAX  ERR()R("Proper  body"); 
end  if;  —  if  procedure  unit  statement 

elsif  (BYPASS(TOKEN  FUNCTION))  then 
DECLARE  TYPE  FUNCTION  DECLARE; 
if  (FUNCTION  UNIT)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Proper  body"); 
end  if;  —  if  function  unit  statement 


elsif  (BYPASS)TOKEN  PACKAGE))  then 
DECLARE  TYPE  PACKAGE  DECLARE; 
if  (PACKAGE  DECLARATION)  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Proper  body"); 
end  if:  —  if  package  declaration 

elsif  |BYPASS(TOKEN  TASK))  then 
DECLARE  TYPE  :=  TASK  DECLARE; 

.f  (TASK  DECLARATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Proper  body"); 
end  if; 
else 

return  (FALSE). 

end  if;  —  if  bvpass(token  procedure) 

end  PROPER  BODY; 


-  SEQUENCE  OF  STATEMENTS  - >  STATEMENT  - 
function  SEQUENCE  OF  STATEMENTS  return  boolean  is 
begin 

put(RESl  LT  FILE.  "In  sequence  of  statements  ").  new  line(RESULT  FILE) 
if  (STATEMENT)  then 
while  (STATEMENT)  loop 
null; 

end  loop, 
return  (TRUE). 

else 

return  (FALSE); 
end  if. 

end  SEQUENCE  OF  STATEMENTS 


-  STATEMENT  -  •  LABEL  "  SIMPLE  STATEMENT 
-  LABEL  •*  COMPOUND  STATEMENT 
function  STATEMENT  return  boolean  is 
begin 

put(RESl'LT  FILE.  "In  statement  ");  new  Une(RESULT  FILE), 
if  (LABEL)  then 
null; 
end  if; 

if  (SIMPLE  STATEMENT)  then 
return  (TRI  E). 

els  if  (COMPOUND  STATEMENT)  then 
return  (TRUE): 
else 

return  (FALSE); 
end  if: 

end  STATEMENT. 


-  COMPOUND  STATEMENT  if  IF  STATEMENT 

-  ■  case  CASE  STATEMENT 

-  LOOP  STATEMENT 

-  •  BLOCK  STATEMENT 

-  accept  ACCEPT  STATEMENT 

-  ■  select  SELECT  STATEMENT 
function  COMPOUND  STATEMENT  return  boolean  is 
begin 

put(RESULT  FILE  "In  compound  statement  ");  new  linejRESULT 
if  (BVPASS(TOKEN  IF))  then 
NESTING  METRICJIF  CONSTRUCT), 
if  (IF  STATEMENT)  then 
return  (TRI  E), 
else 

SYNTAX  ERROR("Compound  statement"); 
end  if;  —  if  if  statement 

elsif  (HYPASS(TOKEN  CASE))  then 
NESTING  METR1C(CASE  CONSTRUCT); 
if  (CASE  STATEMENT)  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Compound  statement"); 
end  if;  —  if  rase  statement 

elsif  (LOOP  STATEMENT)  then 
return  (TRUE) 

elsif  (BLOCK  STATEMENT)  then 
ret  urn  (TR  UE) 

elsif  (BYPASS(TOKEN  ACCEPT))  then 
if  (ACCEPT  STATEMENT)  then 
ret  urn  (TRUE). 

else 

SYNTAX  ERROR("Compound  statement"); 
end  if: 


elsif  (B^  PASS  (TOKEN  SELECT))  then 
if  (SELECT  STATEMENT)  then 
return  (TRI  E), 
else 

SYNTAX  ERROR("Compound  statement"); 
end  if; 
else 

return  (FALSE); 
end  if: 

end  COMPOUND  STATEMENT. 


-BLOCK  STATEMENT  —  >  identifier;"  declare  DECLARATIVE  PART  ?j 

begin  SEQUENCE  OF  STATEMENTS  exception 
EXCEPTION  H  ANDLER  -  V  ?j  end  identifier  ?  ; 
function  BLOCK  STATEMENT  return  boolean  is 
DECLARED  STATE'S  :  boolean; 
begin 

put(RESULT  FILE.  "In  block  statement  ");  new  line(RESULT  FILE); 
if  (DECLARATION)  then 
DECLARE  STATES  TRE  E: 

else 

DECLARATION  ;=  TRI  E: 

DECLARE  STATUS  :  FALSE: 

end  if: 

DECLARE  TYPE  BLOCK  DECLARE; 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
SCOPE  LEVEL  -  SCOPE  LEVEL  -  1; 
if  (BYPASS(TOKEN  COLON))  then 
SCOPE  LEVEL  :=  SCOPE  LEVEL  -  1. 

else 

SYNTAX  ERROR("Block  statement"); 
end  if;  --  if  bypassftoken  colon) 

else 

DECLARE  TYPE  =  VARIABLE  DECLARE; 
end  if:  —  if  bypassjtoken  identifier) 

if  (BYPASS(TOKEN  DECL  ARE))  then 
SCOPE  LEVEL  ;=  SCOPE  LEVEL  *  1; 
if  (DECLARATIVE  PART)  then 
null: 
else 

SYNTAX  ERROR(''Block  statement"); 
end  if:  —  if  declarative  part  statement 

end  if;  —  if  bypassjtoken  declare) 

if  (BYPASS(TOKEN  BEGIN))  then 
DECLARATION  -  FALSE; 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  EXCEPTION))  then 
if  (EXCEPTION  HANDLER)  then 
while  (EXCEPTION  HANDLER)  loop 
null; 
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SYNTAX  ERRORC'BIock  statement"); 
end  if.  --  if  exception  handler  statement 

end  if  —  if  bypass(t<»ken  exception) 

if  (BYPASS(TOKEN  EM)))  then 
if  (BYP.ASS(TOKEN  IDENTIFIER))  then 
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end  if.  —  if  bypass(token  identifier) 

if  (BYPASSfTOKEN  SEMICOLON))  then 
SCOPE  LEVEL  SCOPE  LEVEL- I 
DECLARATION  TRIE 
return  (TRIE), 
else 

SYNTAX  ERROR)  'Block  statement"); 
end  if.  --  if  bypass(token  semicolon) 

else 

SYNTAX  ERRORC'BIock  statement"); 
end  if  --  if  bypass(token  end) 


SYNTAX  ERRORC'BIock  statement"); 
end  if  --  if  sequence  of  statements 

else 

if  not  (DECLARE  STATES)  then 
DECLARATION  FALSE 
end  if; 

return  (FALSE). 

end  if.  --  if  bypass(token  begin) 

end  BLOCK  STATEMENT 
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-  IE  STATEMENT  -  •  EXPRESSION  then  SEQEENCE  OF  STATEMENTS 

elsif  EXPRESSION  then  SEQEENCE  OF  STATEMENTS 
else  SEQEENCE  OF  STATEMENTS  "  end  if . 
function  IF  STATEMENT  return  boolean  is 
begin 

put|RESELT  FILE.  "In  if  statement  ").  new  line(RESELT  FILE): 

■f  (EXPRESSION)  then 
if  (BYPASSfTOKEN  THEN))  then 
if  (SEQEENCE  OF  STATEMENTS)  then 
while  (BYPASSfTOKEN  ELSIF))  loop 
if  (EXPRESSION)  then 
if  (BYPASSfTOKEN  THEN))  then 
if  not  (SEQEENCE  OF  STATEMENTS)  then 
SYNTAX  ERROR("lf  statement") 

»nd  if  --  if  not  sequence  of  statements 


SYNTAX  ERROR('’If  statement"), 
end  if;  --  if  bypassjtoken  then) 

else 

SYNTAX  ERROR("If  statement"); 
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end  if.  --  if  expression  statement 

end  loop 

if  (BVPASS(TOKEN  ELSE))  then 
if  (SENTENCE  OF  STATEMENTS)  then 
null. 

else 

SA  STAX  ERRORC’lf  statement"), 
end  if  —  if  sequence  of  statements 

'■nil  if.  —  if  bypassjtoken  else) 

if  |BYPASS(TOKEN  END))  then 
if  (BA  P  ASS(TOKEN  IF))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
NESTING  METRIC(IF  END): 
return  (TRI  E); 
else 

SA  NT  AX  FIRRORj'Tf  statement"); 
end  >f-  --  if  bypassjtoken  semicolon) 

else 

SA  N  1  AX  ERRORf'lf  statement"); 
end  if  ..  if  bypass(token  if) 

S'*  NT  AX  ERRORC’lf  statement"); 
end  if  -  if  bypassjtoken  end) 

else 

SANT  \X  ER ROR ("If  statement"); 
end  if,  --  if  sequence  of  statements 

else 

>A  NT  AX  ERR()R("lf  statement") 
end  if  --  if  bypassjtoken  then) 

e|se 

ret  urn  (FALSE). 

end  if  -  if  expression  statement 

md  IF  STATEMENT 


~  <  \SE  STATEMENT  -  •  EXPR FISSION  is  CASK  STATEMENT  ALTERNATIVE  -  end  case 
function  (  ASF.  STATEMENT  return  boolean  is 
begin 

put  I  R  F.si  LI  FIEF..  "In  case  Statement  ”)  nes  lme(RFISELT  FTLFI); 
if  i  FIXPRF.SSION)  then 
,f  .BYPASSi  rOKEN  IS))  then 
T  CASE  STATEMENT  ALTERNATIVE)  then 
while  CASE  STATEMENT  ALTERNATIVE)  loop 
null 

end  loop 

if  (BYPASS(TOKEN  END))  then 
if  (BA  PASSfTOKEN  CASED  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
NESTING  METRK  (<  ASE  END) 
ret  urn  (TR  l  FI), 


I 


SI 


S' 

»« 


SYNTAX  ERRORC'Case  statement”); 
end  if;  —  if  bypassjtoken  semicolon) 

else 

SYNTAX  ERROR("Case  statement”); 
end  if;  —  if  bypassjtoken  case) 

else 

SYNTAX  ERRORC’Case  statement”); 
end  if;  —  if  bypass(tokenend) 

else 

SYNTAX  ERROR(”Case  statement”); 
end  if;  —  if  case  statement  alternative 

else 

SYNTAX  ERROR(”Case  statement”); 
end  if;  —  if  bypass(token  is) 

else 

return  (FALSE); 

end  if;  —  if  expression  statement 

end  CASE  STATEMENT. 


-CASE  STATEMENT  ALTERNATIVE ->  when  CHOICE  '  CHOICE  -  > 

SEQUENCE  OF  STATEMENTS 
function  CASE  STATEMENT  ALTERNATIVE  return  boolean  is 
begin 

put(RESULT  FILE.  "In  case  statement  alternative  ");  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  WHEN))  then 
if  (CHOICE)  then 

while  (BYFASS(TOKEN  BAR))  bop 
if  not  (CHOICE)  then 

SYNTAX  ERRORC’Case  statement  alternative"); 
end  if;  —  if  not  choice  statement 

end  loop; 

if  (BYPASSfTOKEN  ARROW))  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
return  (TRUE); 
else 

SYNTAX  ERRORC’Case  statement  alternative"); 
end  if;  —  if  sequence  of  statements 

else 

SYNTAX  F.RROR("Uase  statement  alternative”); 
end  if;  —  if  bypass(token  arrow) 

else 

SYNTAX  ERRORC'Case  statement  alternative"); 
end  if  --  if  choice  statement 

else 

return  (FALSE); 

end  if  —  if  bypassjtoken  when) 

end  CASE  STATEMENT  ALTERNATIVE 
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~  LOOP  STATEMENT  ~>  identifier:’  ITERATION  SCHEME  ?  loop 

SEQL'ENCEOF  STATEMENTS  end  loop  identifier  ?!  ; 
function  LOOP  STATEMENT  return  boolean  is 
begin 

put(RESLLT  FILE,  "In  loop  statement  ");  new  line(RESULT  FILE): 
if  (BYPASS) TOKEN  IDENTIFIER))  then 
if  (BYPASS(TOKEN  COLON))  then 
null: 
else 

SYNTAX  ERROR) "Loop  statement"); 
end  if;  —  if  bypass) token  colon) 

end  if;  —  if  bypass(token  identifier) 

if  (ITERATION  SCHEME)  then 
NO  ITERATION  :=  FALSE; 

end  if;  —  if  iteration  scheme  statement 

if  (BYPASS)TOKEN  LOOP))  then 
if  (NO  ITERATION)  then 
NESTING  METRIC(LOOP  CONSTRUCT); 

else 

NO  ITERATION  :=  TRUE; 
end  if; 

if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASS(TOKEN  END))  then 
if  (BYPASS(TOKEN  LOOP))  then 
if  (BYPASS(TOKEN  IDENTIFIER))  then 

null; 

end  if:  —  if  bypass(token  identifier) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
NESTING  METRIC(LOOP  END); 
return  (TRUE); 
else 

SYNTAX  ERRORC'Loop  statement"); 
end  if:  —  if  bypassjtoken  semicolon) 

else 

SYNTAX  ERROR("Loop  statement"): 
end  if:  —  if  bypass(token  loop) 

else 

SYNTAX  ERROR("Loop  statement"), 
end  if:  —  if  bypassftoken  end) 

else 

SYNTAX  ERROR("Loop  statement"); 
end  if;  —  if  sequence  of  statements 

else 

return  (FALSE); 

end  if:  —  if  bypassjtoken  loop) 

end  LOOP  STATEMENT; 


-EXCEPTION  HANDLER-  -  when  EXCEPTION  CHOICE  EXCEPTION  CHOICE  * 

SEQUENCE  OF  STATEMENTS 
function  EXCEPTION  HANDLER  return  boolean  is 


begin 

put(RESULT  FILE,  "In  exception  handler  ");  newline(RESULTFILE); 
if  (BYPASSfTOKEN  WHEN))  then 
if  (EXCEPTIONCHOICE)  then 
while  (BYPASS(TOKEN  BAR))  loop 
if  not  (EXCEPTION  CHOICE)  then 
SYNTAX  ERROR("Exception  handler"); 
end  if;  --  if  not  exception  choice 

end  loop; 

if  (BYPASSfTOKEN  ARROW))  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
return  (TRUE); 
else 

SYNTAX  ERRORfException  handler"); 
end  if;  —  if  sequence  ofstatements 

else 

SYNTAX  ERRORfException  handler"); 
end  if;  --  if  bypass(token  arrow) 

else 

SYNTAX  ERROR("Exception  handler"); 
end  if:  --  if  exception  choice  statement 

else 

return  (FALSE); 

end  if:  —  if  bypass(token-when) 

end  EXCEPTION  HANDLER: 


-ACCEPT  STATEMENT  ~>  identifier  (EXPRESSION)  ?]  FORMAL  PART 

do  SEQUENCE  OF  STATEMENTS  end  identifier  ? 
function  ACCEPT  STATEMENT  return  boolean  is 
begin 

put(RESULT  FILE,  "In  accept  statement  "):  new  line(RESULT  FILE): 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  LEFT  PAREN))  then 
if  (EXPRESSION)  then 
if  (BYPASSfTOKEN  RIGHT  PAREN))  then 
null; 
else 

SYNTAX  ERROR(" Accept  statement"): 
end  if;  —  if  bypass(token  right  paren) 

else 

SYNTAX  ERRORf  Accept  statement"): 
end  if:  —  if  expression  statement 

end  if:  —  if  bypass(token  left  paren) 

if  (FORMAL  PART)  then 
null; 

end  if;  —  if  formal  part  statement 

if  (BYPASSfTOKEN  DO))  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
if  (BYPASSfTOKEN  END))  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 


end  if;  —  if  bypassjtoken  identifier) 

else 

SYNTAX  ERRORf'Accept  statement"); 
end  if;  —  if  bypassjtoken  end) 

else 


SYNTAX  ERROR("Accept  statement"); 
end  if;  —  if  sequence  of  statements 

end  if;  —  if  bypassjtoken  do) 

if  (BYPASSjTOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Accept  statement"); 
end  if;  —  if  bypassjtoken  semicolon) 

else 

return  (FALSE); 

end  if:  —  if  bypassjtoken  identifier) 

end  ACCEPT  STATEMENT: 


-  SELECT  STATEMENT  -  .»  SELECT  STATEMENT  TAIL  SELECT  ENTRY  CALL  end  select 
function  SELECT  STATEMENT  return  boolean  is 
begin 

putjRE^SULT  FILE.  "In  select  statement  ");  new  linejRESULT  FILE); 
if  (SELECT  STATEMENT  TAIL)  then 
tf  (SELECT  ENTRY  CALL)  then 
if  (BYPASSjTOKEN  END))  then 
if  (BYPASSjTOKEN  SELECT))  then 
if  (BYPASSjTOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Select  statement"); 
end  if;  —  if  bypassjtoken  semicolon) 

else 

SYNTAX  ERROR("Select  statement"), 
end  if;  —  if  bypassjtoken  select) 

f>lse 

SYNTAX  ERRORf'Select  statement"); 

<>nd  if;  —  if  bypassjtoken  end) 

else 

SYNTAX  ERRORf'Select  statement"): 
end  if;  —  if  select  entry  call  statement 

else 

return  (FALSE). 

end  if:  —  if  select  statement  tail 

end  SELECT  STATEMENT; 


-  SELECT  STATEMENT  TAIL  -  •  SELECT  ALTERNATIVE  or  SELECT  ALTERNATIVE 

-  NAME  SEQUENCE  OF  STATEMENTS ° 


function  SELECT  STATEMENT  TAIL  return  boolean  is 
begin 

put(RESULT  FILE,  "In  select  statement  tail  ");  new  line(RESULT  FILE); 
if  (SELECT  ALTERNATIVE)  then 
while  (BYPASS) TOKEN  OR))  loop 
if  not  (SELECT  ALTERNATIVE)  then 
SYNTAX  ERROR("Select  statement  tail"); 
end  if; 
end  loop; 
return  (TRUE); 

elsif  (NAME)  then  —  check  for  entry  call  statement 

if  (BYPASS(TOKEN  SEMICOLON))  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
null; 

end  if;  —  if  sequence  of  statements 

return  (TRUE); 
else 

SYNTAX  ERROR("Select  statement  tail"); 
end  if;  —  if  bypass(token  semicolon) 

else 

return  (FALSE); 

end  if;  —  if  select  alternative  statement 

end  SELECT  STATEMENT  TAIL; 


-  SELECT  ALTERNATIVE ->  when  EXPRESSION  =>  ?;  accept  ACCEPT  STATEMENT 

SEQUENCE  OF  STATEMENTS  ? 

When  EXPRESSION  =>  ?’  delay  DELAY  STATEMENT 
SEQUENCE  OF  STATEMENTS  ?; 

—  >  when  EXPRESSION  =>  ?  terminate  ; 
function  SELECT  ALTERNATIVE  return  boolean  is 
begin 

put(RESULT  FILE,  "In  select  alternative  ");  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  WHEN))  then 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  ARROW))  then 
null; 
else 

SYNTAX  ERROR("Select  alternative"); 
end  if;  —  if  bvpass(token  arrow) 

else 

SYNTAX  ERROR  ("Select  alternative"); 
end  if;  —  if  expression  statement 

end  if;  —  if  bypass(token  when) 

if  (BYPASSjTOKEN  ACCEPT))  then 
if  (ACCEPT  STATEMENT)  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
null; 

end  if;  —  if  sequence  of  statements 

return  (TRUE); 


SYNTAX  ERROR("Select  alternative"); 
end  if;  —  if  accept  statement 

elsif  (BYPASS(TOKEN  DELAY))  then 
if  (DELAY  STATEMENT)  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
null; 

end  if;  —  if  sequence  of  statements 

return  (TRUE); 
else 

SYNTAX  ERRORfSelect  alternative"); 
end  if;  —  if  delay  statement 

elsif  (BYPASS(TOKEN  TERMINATE))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Select  alternative”); 
end  if;  —  if  bypass(token  semicolon) 

else 

return  (FALSE); 

end  if;  —  if  bypassftoken  accept) 

end  SELECT  ALTERNATIVE; 


-SELECT  ENTRY  CALL ->  else  SEQUENCE  OF  STATEMENTS 

~>  or  delay  DELAY  STATEMENT  SEQUENCE  OF  STATEMENTS  ° 
function  SELECT  ENTRY  CALL  return  boolean  is 
begin 

put  (RESULT  FILE.  "In  select  entry  call  ");  new  line(RESULT  FILE); 
if  (BYPASS(TOKEN  ELSE))  then  ' 

.f  (SEQUENCE  OF  STATEMENTS)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Select  entry  call"); 
end  if;  —  if  sequence  of  statements 

elsif  (BYPASS(TOKEN  OR))  then 
if  (BYPASS(TOKEN  DELAY))  then 
if  (DELAY  STATEMENT)  then 
if  (SEQUENCE  OF  STATEMENTS)  then 
null; 

end  if;  —  if  sequence  of  statements 

return  (TRUE), 
else 

SYNTAX  ERROR("Se!ect  entry  call"); 
end  if:  —  if  delay  statement 

else 

SYNTAX  ERROR("Select  entry  call"): 
end  if;  —  if  bypassftoken  delay) 

else 

return  (FALSE); 

end  if;  —  if  bypass(token  else) 

end  SELECT  ENTRY  CALL 


end  PARSER  1: 


***************** 


********************* 


*********** 


-  TITLE:  AN  ADA  SOFTW  ARE  METRIC 

-  MODULE  NAME:  PACKAGE  PARSER  2 

-  DATE  CREATED.  18  JUL  86 

-  LAST  MODIFIED:  30  MAY  87 

-  AUTHORS:  LCDR  JEFFREY  L  NTEDER 

LT  KARL  S.  FAIRBANKS.  JR. 

LCDR  PAUL  M.  HERZIG 

-  DESCRIPTION:  This  package  contains  thirty-three  functions 

that  are  the  middle  level  productions  for  our  top-down, 
recursive  descent  parser.  Each  function  is  preceded 
by  the  grammaar  productions  they  are  implementing. 

*****V*«**XK********«****x***************************r*****X**** 


with  PARSER  3  PARSER  4.  HENRY  GLOBAL,  HENRY,  BYPASS  FUNCTION. 

BYPASS  SUPPORT  FUNCTIONS.  GLOBAL  PARSER.  GLOBAL.  TEXT  10; 
use  PARSER  3.  PARSER  4.  HENRY  GLOBAL,  HENRY.  BYPASS  FUNCTION, 
BYPASS  SUPPORT  FUNCTIONS.  GLOBAL  PARSER.  GLOBAL,  TEXT  10; 

package  PARSER  2  is 
IDE.NT  DECLARE  :  BOOLEAN  :=  FALSE: 
function  GENERIC  ACTUAL  PART  return  boolean; 
function  GENERIC  ASSOCIATION  return  boolean; 
function  GENERIC  FORMAL  PARAMETER  return  boolean; 
function  GENERIC  TYPE  DEFINITION  return  boolean, 
function  PRIVATE  TYPE  DECLAR ATION  return  boolean; 
function  TYPE  DECLARATION  return  boolean; 
function  SUBTYPEDECLARATION  return  boolean; 
function  DISCRIMINANT  PART  return  boolean; 
function  DISCRIMINANT~SPECIFICATION  return  boolean; 
function  TYPE  DEFINITION  return  boolean; 
function  RECORD  TYPE  DEFINITION  return  boolean; 
function  COMPONENT  LfST  return  boolean; 
function  COMPONENT  DECLARATION  return  boolean: 
function  VARIANT  PART  return  boolean; 
function  VARIANT  return  boolean: 
function  WITH  OR  USE  CLAUSE  return  boolean: 
function  FORMAL  PART  return  boolean: 
function  IDENTIFIER  DECLARATION  return  boolean: 
function  IDENTIFIER  DECLARATION  TAIL  return  boolean: 
function  EXCEPTION  TAIL  return  boolean: 
function  EXCEPTION  CHOICE  return  boolean; 
function  CONSTANT  TERM  return  boolean; 
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function  IDENTIFIER  TAIL  return  boolean: 
function  PARAMETER  SPECIFICATION  return  boolean; 
function  IDENTIFIER  LIST  return  boolean; 
function  MODE  return  boolean; 
function  DESIGNATOR  return  boolean; 
function  SIMPLE  STATEMENT  return  boolean; 
function  ASSIGNMENT  OR  PROCEDURE  CALL  return  boolean; 
function  LABEL  return  boolean: 
function  F-NTRY  DECLARATION  return  boolean: 
function  REPRESENTATION  CLAUSE  return  boolean, 
function  RECORD^REPRESENTATION  CLAI  SE  return  boolean; 
end  PARSER  2; 


package  body  PARSER  2  is 

-  GENERIC  ACTUAL  PART -  >  (GENERIC  ASSOCIATION  .GENERIC  ASSOCIATION 
function  GENERIC  ACTL  AL  PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN  LEFT  PARES))  then 
if  (GENERIC  ASSOCIATION)  then 
while  (BYPASSfTOKEN  COMMA))  loop 
if  not  (GENERIC  ASSOCIATION)  then 
S\NTAX  F-RRORC'Generic  actual  part"): 
end  if-  --  if  not  generic  association 

end  loop: 

if  (BYPASSfTOKEN  RIGHT  PAREN))  then 
return  (TRUE); 
else 

NT  AX  ERROR)  "Generic  actual  part”); 
end  --  if  bypass(token  right  paren) 

else 

SYNTAX  ERROR("Genenc  actual  part"); 
end  if:  —  if  generic  association  statement 

else 

ret  urn ( FALSE): 

end  if:  —  if  bypass(token  left  paren) 

end  GENERIC  ACTUAL  PART: 


-GENERIC  ASSOCIATION-  -  GENERIC  FORMAL  PARAMETER  7  EXPRESSION 
function  GENERIC  ASSOCIATION  return  boolean  is 
begin 

if  (GENERIC  FORMAL  PAR  AMETER)  then 
null; 

end  if;  --  if  generic  formal  parameter  st atement 

if  (F.XPRF.SSION)  then  —  check  for  generic  actual  parameter 

return  (TRUF^); 


return  (FALSE); 

end  if:  --  if  expression 

end  GENERIC  ASSOCIATION: 


-GENERIC  FORMAL  PARAMETER-  identifier 

—  >  string  literal  =  > 

function  GENERIC  FORMAL  PARAMETER  return  boolean  is 
begin 

LOOK  AHEAD  TOKEN  TOKEN  RECORD  Bl  FFER(TOKEN  ARRAY  INDEX  -•  1) 
if  (ADJUST  LEXEME) LOOK  AHEAD  TOKEN  LEXEME, 

LOOK  AHEAD  TOKEN  LEXEME  SIZE  -  I)  =  "=■  >")  then 
if  (BYPASS(TOKEN  IDENTIFIER))  then 
if  (BYPASS(TOKEN  ARROW))  then 
return  (TRI  E); 

else 

SYNTAX  ERROR("Generic  formal  parameter"); 
end  if:  —  if  bypassftoken  arrow) 

elsif  (BYPASS(TOKEN  STRING  LITERAL))  then 
if  (BYPASS(TOKEN  ARROW))  then 
return  (TRLE); 
else 

SYNTAX  ERROR("Generir  formal  parameter"): 
end  if:  -  if  bypassftoken  arrow) 

else 

SYNTAX  ERROR("Generic  formal  parameter"): 
end  if;  —  if  bypassftoken  identifier) 

else 

return  (FALSE); 

end  if:  —  if  adjust  lexemeflookahead  token) 

end  GENERIC  FORMAL  PARAMETER; 


-  GENERIC  TYPE  DEFINITION  ~>  (  -  >  ) 

—  >  range  <  > 

—  >  digits  <  > 

—  >  delta  <> 

->  array  ARRAY  TYPE  DEFINITION 

—  access  SUBTYPE  INDICATION 
function  GENERIC  TYPE  DEFINITION  return  boolean  is 
begin 

if  (BYPASSfTOKEN  LEFT  PAREN))  then 
if  (BYPASSfTOKEN  BRACKETS))  then 
if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Genenc  type  definition"): 
end  if:  —  if  bypassftoken  right  paren) 


SYNTAX  ERROR("Generic  type  definition") 


end  if:  --  if  by  passftoken  brackets) 

elsif  (BYPASS(TOKEN  RANGE))  or  else  (BYPASSfTOKEN  DIGITS)) 
or  else  (BYPASSfTOKEN  DELTA))  then 
if  (BYPASS(TOKEN  BRACKETS))  then 
ret  urn  (TR  l  E) ; 
else 

SYNTAX  ERROR("Generir  type  definition"); 
end  if:  —  if  b\  passftoken  brackets) 

elsif  (BYPASSfTOKEN  ARRAY))  then 
if  (ARRAY  TYPE  DEFINITION)  then 
return  (TRl  E): 
else 

SYNTAX  ERRORf'Genenc  type  definition"); 
end  if:  —  if  array  type  definition 

elsif  (BYPASSfTOKEN  ACCESS))  then 
if  (SUBTYPE  INDICATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Generic  type  definition"); 
end  if:  —  if  subtype  indication 

else 

return  (FALSE): 

end  if;  —  if  bypass(token  left  paren) 

end  GENERIC  TYPE  DEFINITION: 


-PRIVATE  TYPE  DECLARATION ->  limited  T  private 
function  PRIVATE  TYPE  DECLARATION  return  boolean  is 
begin 

if  (BYPASSfTOKEN  LIMITED))  then 
null: 
end  if; 

if  (BYPASSfTOKEN  PRIVATE))  then 
return  (TRUE); 

else 

return  (FALSE); 
end  if; 

end  PRIVATE  TYPE  DECLARATION: 


-  SUBTYPE  DECLARATION  -  identifier  is  SUBTYPE  INDICATION 
function  SL’BTYPE  DECLARATION  return  boolean  is 
begin 

if  (BYPASSfTOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  IS))  then 
if  (SUBTYPE  INDICATION)  then 
if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE): 

else 

SYNTAX  ERROR("Subtype  declaration"): 


—  if  bypass(token  semicolon) 


end  if, 
else 

SYNTAX  ERROR("Subtype  declaration"): 
end  if;  --  if  subtype  indication  statement 

else 

SYNTAX  ERROR("Subtype  declaration"); 
end  if:  —  if  bypass(token  is) 

else 

return  (FALSE); 

end  if:  —  if  bypassjtoken  identifier) 

end  SUBTYPE  DECLARATION: 


-TYPE  DECLARATION  identifier  DISCRIMINANT  PART" 

is  SUBTYPE  INDICATION: 
function  TYPE  DECLARATION  return  boolean  is 
begin 

if  (BYPASS(TOKEN  IDENTIFIER))  then 
if  (DISCRIMINANT  PART)  then 
null; 

end  if.  —  if  discriminant  part  statement 

if  (BYPASS(TOKENIS))  then  —  declaration  is  full  type  if  is' 

if  (PRIVATE  TYPE  DECLARATION)  then 
null: 

elsif  (TYPE  DEFINITION)  then  —  present,  otherwise  incomplete  type 
null: 
else 

SYNTAX  ERROR("Type  declaration"): 
end  if;  —  if  type  definition  statement 

end  if;  —  if  bypass(token  is) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Type  declaration"), 
end  if:  —  if  bypassjtoken  semicolon) 

else 

return  (FALSE); 

end  if:  —  if  bypassjtoken  identifier) 

end  TYPE  DECLARATION: 


-  DISCRIMINANT  PART  -->  (DISCRIMINANT  SPECIFICATION 

:  DISCRIMINANT  SPECIFICATION  *  ) 
function  DISCRIMINANT  PART  return  boolean  is 
begin 

if  (BYPASSfTOKEN  LEFT  PAREN))  then 
if  (DISCRIMINANT  SPECIFICATION)  then 
while  (BYPASSfTOKEN  SEMICOLON))  loop 
if  not  (DISCRIMINANT  SPECIFICATION)  then 
SYNTAX  ERROR("Discriminant  part"): 


JMj 

$ 

i 


end  if; 
end  loop; 


if  not  discriminant  specification 


if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Discriminant  part"); 
end  if;  ~  if  bypassjtoken  right  paren) 

else 

SYNTAX  ERRORf'Discriminant  part"): 
end  if;  —  if  discriminant  specification 

else 

return  (FALSE); 

end  if:  —  if  bypass(token  left  paren) 

end  DISCRIMINANT  PART; 
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-  DISCRIMINANT  SPECIFICATION ->  IDENTIFIER  LIST  :  NAME 
function  DISCRIMINANT  SPECIFICATION  return  boolean  is 
begin 

if  (IDENTIFIER  LIST)  then 
if  (BYPASS(TOKEN  COLON))  then 
if  (NAME)  then  —  check  for  type  mark 

if  (BYPASS(TOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 


;=  EXPRESSION  ? 


SYNTAX  ERROR("Discriminant  specification"): 
end  if:  —  if  expression  statement 

end  if;  —  if  bypass) token  assignment) 

return  (TRUE); 

else 

SYNTAX  ERROR("Discriminant  specification"); 
end  if;  —  if  name  statement 

else 

SYNTAX  ERROR("Discriminant  specification"); 
end  if:  —  if  bypass(token  colon) 

pise 

return  (FALSE); 

end  if;  —  if  identifier  list  statement 

end  DISCRIMINANT  SPECIFICATION; 


-TYPE  DEFINITION  ENUMERATION  TYPE  DEFINITION 
INTEGER  TYPE  DEFINITION 
---  digits  FLOATING  OR  FIXED  POINT  CONSTRAINT 

-  >  delta  FLOATING  OR  FIXED  POINT  CONSTRAINT 
---•  array  ARRAY  TYPE  DEFINITION 

-  -  record  RECORD  TYPE  DEFINITION 

-  *  access  SUBTYPE  INDICATION 

-  new  SUBTYPE  INDICATION 
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function  TYPE  DEFINITION  return  boolean  is 
begin 

if  (ENUMERATION  TYPE  DEFINITION)  then 
return  (TRUE): 

elstf  (INTEGER  TYPE  DEFINITION)  then 
return  (TRI  E); 

elsif  (BYPASS(TOKEN  DIGITS))  or  else  (BYPASS(TOKEN  DELTA))  then 
if  (FLOATING  OR  FIXED  POINT  CONSTRAINT)  then 
return  (TRIE); 
else 

SYNTAX  ERROR("T>  pe  definition"); 
end  if;  —  floating  or  fixed  point  constraint 

elsif  (BYPASS(TOKEN  ARRAY))  then 
if  (  ARRAY  TYPE  DEFINITION)  then 
return  (TRE  E): 
else 

SYNTAX  ERROR("T>  pe  definition"); 
end  if;  —  if  array  type  definition 

elsif  (BYPASS(TOKEN  RECORD  STRUCTURE))  then 
if  (RECORD  TYPE  DEFINITION)  then 
return  (TRIE); 
else 

S^  NTAX  ERROR("Type  definition"); 
end  if;  —  if  record  type  definition 

elsif  (BYPASS(TOKEN  ACCESS))  or  else  ( B Y P ASS ( TO K EN  NEW))  then 
if  (SUBTYPE  INDICATION)  then 
return  (TRUE): 
else 

SYNTAX  ERRORC'Type  definition"); 
end  if;  —  if  subtype  indication 

else 

return  (FALSE); 
end  if; 

end  TYPE  DEFINITION: 


-RECORD  TYPE  DEFINITION  -  >  COMPONENT  LIST  end  record 
function  RECORD  TYPE  DEFINITION  return  boolean  is 
begin 

if  (COMPONENT  LIST)  then 
if  (BYPASSfTOKEN  END))  then 
if  (BYPASS(TOKEN  RECORD  STRUCTURE))  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Record  type  definition"); 
end  if.  —  if  bypassjtoken  record-structure) 

else 

SYNTAX  ERROR("Record  type  definition"); 
end  if;  —  if  by pass(token  end) 


t-ml  if.  --  if  component  list  'tairment 

end  RECORD  W  PE  DK EINITION 


-  <  OMPONENT  LIST  -  COMPONENT  DECLARATION  *  V  AARIANT  PART  -’ 
—  •  null  . 

function  COMPONENT  LIST  return  boolean  is 
begin 

while  (COMPONENT  DECLARATION)  loop 
null 

end  loop 

if  (VARIANT  PART)  then 
null 

elsif  ( HN PASSjTOKEN  NTLL))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
null 
end  if 

end  if 

ret  urn  I  TR  I  E ) . 
end  COMPONENT  LIST 


-COMPONENT  DECLARATION-  IDENTIEIER  LIST  SCBTYPE  INDICATION 

EXPRESSION  7  ; 

function  COMPONENT  DECLARATION  return  boolean  is 
begin 

if  (IDENTIEIER  LIST)  then 
if  (BYPASS(TC)KEN  COLON))  then 
if  (SCBTYPE  INDICATION)  then 
if  (BYPASS(TOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TREE), 
else 

SYNTAX  ERROR("Component  declaration"), 
end  if:  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR("Component  declaration"); 
end  if:  —  if  expression  statement 

end  if;  —  if  bypass(token  assignment) 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRI  E); 
else 

SYNTAX  ERROR("Component  declaration"), 
end  if.  —  if  bypassftoken  semicolon) 

else 

SYNTAX  ERROR("Component  declaration"), 
end  if.  —  if  subtype  indication  statement 

else 

SYNTAX  ERRORf'Oomponent  declaration"); 
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end  if.  --  if  bypass) token  colon) 

else 

return  (FALSE). 

end  if.  —  if  identifier  list  statement 

end  C  OMPONENT  DECLARATION; 


-•  \  ARIANT  PART  —  >  case  identifier  is  V  ARIANT  -  end  case  ; 
function  V  ARIANT  PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN  CASE))  then 
if  (BYPASS)TOKEN  IDENTIFIER))  then 
if  (BYPASS(TOKENJS))  then 
if  (VARIANT)  then 
while  (VARIANT)  loop 
null: 

end  loop: 

if  (BYPASS(TOKEN  END))  then 
if  (BYPASS(TOKE.N  CASE))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Variant  part"); 
end  if:  —  if  bypass) token  semicolon) 

else 

SYNTAX  ERROR)" Variant  part"), 
end  if;  —  if  bypass(token  case) 

else 

SYNTAX  ERROR("Variant  part"): 
end  if:  —  if  bypassftoken  end) 

else 

SYNTAX  ERROR("Variant  part"): 
end  if:  —  if  variant  statement 

else 

SYNTAX  ERROR) "Variant  part"); 
end  if;  —  if  bypass(token  is) 

else 

SYNTAX  ERROR(" Variant  part"); 
end  if;  —  if  bypassftoken  identifier) 

else 

return  (FALSE): 

end  if:  —  if  bypassftoken  case) 

end  VARIANT  PART; 


-  VARIANT  -  •  when  CHOICE  CHOICE 
function  V  ARIANT  return  boolean  is 
begin 

if  (BYPASSfTOKEN  W  HEN))  then 
if  (CHOICE)  then 


COMPONENT  LIST 
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while  (BYPASSJTOKEN  BAR))  loop 
if  not  (CHOICE)  then 
SYNTAX  ERROR( "Variant"): 
end  if:  —  if  not  choice  statement 

end  loop: 

if  (BYPASS(TOKEN  ARROW))  then 
if  (COMPONENT  LIST)  then 
return  (TRl  E); 
else 

SYNTAX  ERROR) "Variant"); 

end  if:  —  if  component  list  statement 

else 

SYNTAX  ERROR) "Variant"); 
end  if;  —  if  bvpass(token  arrow) 

else 

SYNTAX  ERROR)" Variant"); 
end  if:  —  if  choice  statement 

else 

return  (FALSE): 

end  if:  —  if  bypassftoken  when) 

end  V  ARIANT: 


-WITH  OR  USE  CLAUSE  -  >  identifier  .identifier*; 
function  WITH  OR  USE  CLAl’SE  return  boolean  is 
begin 

.f  (BYPASS)TOKEN  IDENTIE  ’ER))  then 
while  (BYPASSjTOKEN  COMMA))  loop 
if  not  (BYPASS)TOKEN  IDENTIFIER))  then 
SYNTAX  ERROR("With  or  use  clause"): 
end  if: 
end  loop: 

if  (BYPASS)TOKEN  SEMICOLON))  then 
return  (TRIE); 
else 

SYNTAX  ERROR("With  or  use  clause"); 
end  if;  —  if  bypassjtoken  semicolon) 

else 

return  (FALSE); 

end  if:  —  if  bypassjtoken  identifier) 

end  WITH  OR  USE  CLAUSE; 


-FORMAL  PART-  -  (PARAMETER  SPECIFICATION  PARAMETER  SPF<  IFP  ATION  ’  | 
function  FORMAL  PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN  LEFT  PAREN))  then 
FORMAL  PARAM  DECLARE  TRUE 
if  (PARAMETER  SPECIFICATION)  then 
while  (BYPASSfTOKEN  SEMICOLON))  loop 


if  not  (PARAMETER  SPECIFICATION)  then 
SYNTAX  ERROR("Formai  part"); 
end  if;  —  if  not  parameter  specification  statement 

end  loop; 

if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
if  PACKAGE  BODY  DECLARE  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME  END  PARAM  DECLARE. 
NONE.  NEXT  HEN); 

CREATE  NODE(.NEXT  HEN.  LAST  RECORD); 
end  if; 

FORMAL  PARAM  DECLARE  :=  FALSE, 
return  (TRLfE): 
else 

SYNTAX  ERRORf’Formal  part"); 
end  if;  —  if  bypass(token  right  paren)  statement 

else 

SYNTAX  ERRORfFormal  part"): 
end  if;  —  if  parameter  specification  statement 

else 

return  (FALSE); 

end  if.  —  if  bypassjtoken  left  paren)  statement 

end  FORMAL  PART; 


-IDENTIFIER  DECLARATION  ->  IDENTIFIER  LIST  IDENTIFIER  DECLARATION  TAIL 
function  IDENTIFIER  DECLARATION  return  boolean  is 
begin 

put(RESl.LT  FILE.  "IN  IDENTIFIER  DECLARATION");  NEW  LINE(RESl  LT  FILE); 

HENRY  WRITE  ENABLE  -  TR IE; 

IDENT  DECLARE  —  TRIE; 
if  (IDENTIFIER  LIST)  then 
if  |BYPASS(TOKEN  COLON))  then 
if  (IDENTIFIER  DECLARATION  TAIL)  then 
HENRY  WRITE  ENABLE  -  FALSE. 

return  (TRI  E); 

else 

SYNTAX  ERROR("Identifier  declaration"); 
end  if:  —  if  identifier  list  statement 

else 

SYNTAX  ERROR ("Ident lfier  declaration"): 
end  if  —  if  by pass( token  colon) 

else 

return(FALSE): 

end  if  —  if  identifier  list  statement 

end  IDENTIFIER  DECLARATION; 


-IDENTIFIER  DECLARATION  TAIL-  exception  EXCEPTION  TAIL 

constant  CONSTANT  TERM 


--  -  array  ARRAY  TYPE  DEFINITION 
EXPRESSION  "  ; 

-  •  NAME  IDENTIFIER  TAIL 
function  IDENTIFIER  DECLARATION  TAIL  return  boolean  is 
begin 

put ( R ESl'LT  FILE.  "IN  IDENTIFIER  DECLARATION  TAIL");  NEW  LINEfRESULT  FILE) 
if  (BYPASSjTOKEN  EXCEPTION))  then 
if  (EXCEPTION  TAIL)  then 
return  (TREE); 

else 

SYNTAX  ERRORf’Identifier  declaration  tail"); 
end  if;  —  if  exception  tail  statement 

e  Is  if  (BYPASS(TOKEN  CONSTANT))  then 
if  (CONSTANT  TERM)  then 
return  (TRI  E); 
else 

SYNTAX  ERROR("Identifier  declaration  tail"); 
end  if;  --  if  constant  term  statement 

elsif  (BYPASSfTOKEN  ARRAY))  then 
if  (ARRAY  TYPE  DEFINITION)  then 
if  (BYPASSfTOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
null; 
else 

SYNTAX  ERROR("Identifier  declaration  tail'’): 
end  if:  —  if  expression  statement 

end  if:  --  if  bvpass(token  assignment) 

else 

SYNTAX  ERROR("Identifier  declaration  tail"); 
end  if;  —  if  array  type  definition 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE); 

else 

SYNTAX  ERROR("Identifier  declaration  tail"); 
end  if;  --  if  bypassftoken  semicolon) 

elsif  (NAME)  then 
if  (IDENTIFIER  TAIL)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Identifier  declaration  tail"); 
end  if;  —  if  identifier  tail 

else 

return  (FALSE); 

end  if:  —  if  bypassftoken  exception) 

end  IDENTIFIER  DECLARATION  TAIL 


-  EXCEPTION  TAIL  »>  : 

—  ■  renames  NAME  : 

function  EXCEPTION  TAIL  return  boolean  is 
begin 


if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE): 

elsif  (BYPASS(TOKEN  RENAMES))  then 
if  (NAME)  then 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SY  NTAX_ERROR("Exception  tail"); 
er|d  if-  —  if  bypass(token  semicolon) 

else 

SY  NTAX  ERRORf'Exception  tail"); 
end  if;  —  if  name  statement 

else 

return  (FALSE); 

end  if;  —  if  bvpassjtoken  semicolon) 

end  EXCEPTION  TAIL: 


-  EXCEPTION  CHOICE ->  identifier 
— >  others 

function  EXCEPTION  CHOICE  return  boolean  is 
begin 

if  (BYPASSfTOKEN  IDENTIFIER))  then 

return  (TRUE): 

elsif  (BYPASSfTOKEN  OTHERS))  then 
return  (TRUE): 
else 

return  (FALSE); 
end  if; 

end  EXCEPTION  CHOICE: 


-  CONSTANT  TERM ->  array  ARRAY  TYPE  DEFINITION  :=  EXPRESSION'’ 
-->  :=  EXPRESSION  ; 

->  NAME  IDENTIFIER  TAIL 
function  CONSTANT  TERM  return  boolean  is 
begin 

if  (BYPASSfTOKEN  ARRAY))  then 
if  (ARRAY  TYPE  DEFINITION)  then 
if  (BYPASSfTOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
null; 
else 

SY  NTAX  ERROR("Constant  term"); 
pnd  if:  --  if  expression  statement 

end  if:  —  if  bypass(token  assignment) 

else 

SYNTAX  F.RRORf "Const ant  term"): 

Pnd  if:  —  if  array  type  definition 

if  (BYPASSfTOKEN  SEMICOLON))  then 


S'*  NT  AX  ERROR("Constant  term”): 
pnd  —  if  bypassftoken  semicolon) 

elsif  (BYPASS(TOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE): 
else 

S^  NTAX  ERRORfConstant  term”); 

en<f  if:  —  if  bypass(token  semicolon) 

else 

S'*  NTAX  ERRORfConstant  term"): 
en<f  *f;  —  if  expression  statement 

elsif  (NAME)  then 
if  (IDENTIFIER  TAIL)  then 
return  (TRIE): 
else 

S'*  NTAX  ERROR("Constant  term"): 

en(l  *f;  —  if  identifier  tail  statement 

else 

return  (FALSE): 

end  if;  -  if  bypass(token  array) 

end  CONSTANT  TERM: 


-  IDENTIFIER  TAIL  ~>  CONSTRAINT  °  :=.-  EXPRESSION  ?  ; 

—  >  renames  NAME  ?  ; 
function  IDENTIFIER  TAIL  return  boolean  is 
begin 

putfRESULT  FILE.  "IN  IDENTIFIER  TAIL");  NEW  LINEj RESULT  FILE) 
if  (CONSTRAINT)  then 
null; 

Pnd  if:  —  if  constraint  statement 

if  (BYPASSfTOKEN  RENAMES))  then 
if  (NAME)  then 


SYNTAX  ERRORfldentifier  tail"): 

"fid  if:  —  if  name  statement 

Pr,d  if:  —  if  bypassjtoken  renames) 

if  (BYPASSfTOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 


S'*  NTAX  ERROR("Identifier  tail"). 

"I'd  if;  ..  if  expression  statement 

°nf)  if;  --  if  bypass(token  assignment) 

if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRUE); 


return  (FALSE); 
end  if; 

end  IDENTIFIER  TAIL. 


if  bypass(token  semicolon) 


-  PARAMETER  SPECIFICATION  IDENTIFIER  LIST  MODE  NAME  ;  EXPRESSION  7 
function  PARAMETER  SPECIFICATION  return  boolean  is 
begin 

put(RESULT  FILE,  "IN  PARAMETER  SPECIFICATION");  NEW  LINE(RESL  LT  FILE); 

HENRY  WRITE  ENABLE  ;=  TRUE;  —to  capture  first  parameter 
if  (IDENTIFIER  LIST)  then 
if  (BYPASS(TOKEN  COLON))  then 
if  (MODE)  then 

if  (NAME)  then  —  check  for  type  mark 

if  (BYPASS(TOKEN  ASSIGNMENT))  then 
if  (EXPRESSION)  then 
null; 
else 

SYNTAX  ERROR("Parameter  specification"); 
end  if;  —  if  expression  statement 

end  if:  —  if  bypass(token  assignment) 

return  (TRI  E); 
else 

SYNTAX  ERROR("Parameter  specification"); 
end  if.  —  if  name  statement 

else 

SYNTAX  ERROR("Parameter  specification"); 
end  if;  —  if  mode  statement 

else 

SYNTAX  ERROR("Parameter  specification"); 
end  if:  —  if  bypass(token  colon) 

else 

return  (FALSE); 

end  if:  —  if  identifier  list  statement 

end  PARAMETER  SPECIFICATION; 


--  IDENTIFIER  LIST  —  ■  identifier  identifier* 
function  IDENTIFIER  LIST  return  boolean  is 
begin 

put ( RESULT  FILE.  "IN  IDENTIFIER  LIST");  NEW  LINE(RESl'LT  FILE): 
if  (BYPASS(TOKEN  IDENTIFIER))  then 

if  FORMAL  PARAM  DECLARE  AND  PACKAGE  BODY  DECLARE  then 

WRITE  HENRY  DAT A(BLANK.  DUMMY  LEXEME,  PARAM  TYPE,  NONE.  LAST  RECORD) 
elsif  (NOT  PACKAGE  BODY  DECLARE)  then 
WRITE  HENRY  DATAfLOCAL  DECLARE,  DUMMY  LEXEME.  IDENT  TYPE, 
f  NONE.  LAST  RECORD); 

•  end  if; 

!  while  (BYPASS(TOKEN  COMMA))  loop 

\  if  (IDENT  DECLARE)  OR  (FORMAL  PARAM  DECLARE  AND  PACKAGE  BODY  DECLARE) 


then 

HENRY  WRITE  ENABLE  :=  TRUE; 
end  if: 

if  FORMA*  PARAM  DECLARE  AND  PACKAGE  BODY  DECLARE  then 
WRITE  HENRY  DATA(BLANK.  DUMMY  LEXEME,  PAR  AM  TYPE, 

NONE,  NEXT  HEN); 

elsif  (NOT  FORMAL  PARAM  DECLARE)  then 
WRITE  HENRY  DATA(LOCAL  DECLARE,  DUMMY  LEXEME.  IDENT  TYPE, 
NONE,  NEXT  HEN); 

end  if: 

if  not  (BYPASS (TOKEN  IDENTIFIER))  then 
SYNTAX  ERROR  ("Identifier  list"); 


end  if; 
end  loop; 
return  (TRUE); 
else 

return  (FALSE); 
end  if: 

end  IDENTIFIER  LIST; 


if  not  bypass(token  identifer)  statement 


if  bypass(tokenidentifier)  statement 


-  MODE  ~> 


—  >  out 

function  MODE  return  boolean  is 
begin 

put  (RESULT  FILE.  "IN  PARAMETER  MODE");  NEW  LINE(RESULT  FILE); 
if  (BYPASSfTOKEN  IN))  then 
if  PACKAGE  BODY  DECLARE  THEN- 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME,  PARAM  TYPE.  IN  TYPE,  LAST  RECORD 
end  if; 

if  (BYPASSfTOKEN  OUT))  then 
if  PACKAGE  BODY  DECLARE  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME.  PARAM  TYPE. 

IN  OUT  TYPE,  LAST  RECORD); 

end  if; 
end  if; 

elsif  (BYPASS(TOKEN  OUT))  then 
if  PACKAGE  BODY  DECLARE  then 

WRITE  HENRY  DATA(BLANK.  DUMMY  LEXEME.  PARAM  TYPE,  OUT  TYPE,  LAST  RECOR 
end  if; 
end  if; 

if  (LAST  RECORD. TYPE  DEFINE  =  PARAM  TYPE) 

AND  (LAST  RECORD. PARAM  TYPE  =  NONE)  THEN- 

WRITE  HENRY  DATA(BLANK.  DUMMY  LEXEME.  PARAM  TYPE.  IN  TYPE.  LAST  RECORD; 
end  if; 

return  (TRUE); 
end  MODE; 
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-  DESIGNATOR  identifier 
—  >  string  literal 

function  DESIGNATOR  return  boolean  is 
begin 

if  (BYPASS(TOKEN  IDENTIFIER))  then 
return  (TRIE); 

elsif  (BYPASS(TOKEN  STRING  LITERAL))  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if: 

end  DESIGNATOR; 


-  SIMPLE  STATEMENT  ~>  null  ; 

->  ASSIGNMENT  OR  PROCEDURE  CALL 
->  exit  EXIT  STATEMENT 
->  return  RETURN  STATEMENT 
goto  GOTO  STATEMENT 
->  delay  DELAY  STATEMENT 
->  abort  ABORT  STATEMENT 
~>  raise  RAISE  STATEMENT 
function  SIMPLE  STATEMENT  return  boolean  is 
begin 

if  (BYPASS(TOKEN  NULL))  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERRORf'Simple  statement"): 
end  if; 

elsif  (ASSIGNMENT  OR  PROCEDURE  CALL)  then  --  includes  a  check  for  a 
return  (TRl  E):  —  code  statement  and  an 

—  entry  call  statement 

elsif  (BYPASS(TOKEN  EXIT))  then 
if  (EXIT  STATEMENT)  then 
return  (TRL  E) ; 


SYNTAX  ERROR("Simple  statement"); 
end  if; 

elsif  (BYPASS(TOKEN  RETURN))  then 
if  (RETURN  STATEMENT)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Simple  statement"): 
end  if; 

elsif  (BYPASS(TOKEN  GOTO))  then 
if  (GOTO  STATEMENT)  then 
ret  urn  (TRl  E) . 


SYNTAX  ERRORf'Simple  statement"); 
end  if; 


elsif  (BYPASS(TOKEN  DELAY))  then 
if  (DELAY  STATEMENT)  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Simple  statement"): 
end  if: 

elsif  (BYPASS(TOKEN  ABORT))  then 
if  (ABORT  STATEMENT)  then 
return  (TRL’E); 
else 

SYNTAX  ERROR("Simple  statement"); 
end  if; 

elsif  (BYPASS(TOKEN  RAISE))  then 
if  (RAISE  STATEMENT)  then 
return  (TRlrE): 

else 

SYNTAX  ERROR("Simple  statement"); 
end  if; 
else 

return  (FALSE): 
end  if: 

end  SIMPLE  STATEMENT; 


-  ASSIGNMENT  OR  PROCEDURE  CALL  ~>  NAME  :---  EXPRESSION  ; 

->  NAME; 

function  ASSIGNMENT  OR  PROCEDURE  CALL  return  boolean  is 

ASSIGN  POINTER,  FUNCALL  POINTER  :  POINTER; 

begin 

put(result  file,  "in  assign  or  procedure  call");  new  line(result  file); 

henry  Write  enable  =  true: 

ASSIGN  POINTER  :=  NEXT  HEN: 
if  (NAME)  then 

if  (BYPASS(TOKEN  ASSIGNMENT))  then 
ASSIGN  STATEMENT  =  TRI  E; 

WRITE  HENRY  DATA(BLANK.  DUMMY  LEXEME.  ASSIGN  TYPE, 

NONE.  NEXT  HEN); 

CREATE  NODE(NEXT  HEN.  LAST  RECORD); 
if  NAME  TAIL  SET  then 

WRITE  HENRY  DATA  (BLANK.  DUMMY  LEXEME.  PROCALL  OR  DS. 
NONE,  ASSIGN  POINTER): 

end  if: 

FUNCALL  POINTER  :  NEXT  HEN; 

HENRY  WRITE  ENABLE  =  TRUE 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
NAME  TAIL  SET  :  FALSE: 

ASSIGN  STATEMENT  FALSE: 

WRITE  HENRY  DATAfBLANK  DUMMY  LEXEME.  END  ASSIGN  TYPE 
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NONE.  NEXT  HEN); 

CREATE  NODEjNEXT  HEN,  LAST  RECORD); 

HENRY  WRITE  ENABLE  :=  FALSE; 
return  (TREE).  —  parsed  an  assignment  statement 

else 

SA  NTAX  ERROR  ("Assignment  or  procedure  call"); 
en<f  if:  —  if  by pass(token  semicolon) 

else 

S\  NTAX_ERROR("Assignment  or  procedure  call"); 
e[>d  if:  --  if  expression  statement 

elsif  (BYPASSfTOKEN  SEMICOLON))  then 
WRITE  HENRY  DAT A(BLANK.  DUMMY  LEXEME,  PROCALL  OR  DS, 
NONE,  ASSIGN  POINTER);  ~  ' 

CREATE  NODE(NEXT  HEN,  LAST  RECORD); 


return  (TRUE): 
else 

SYNTAX  ERROR 
end  if; 
else 

return  (FALSE); 
end  if; 


-  parsed  a  procedure  call  statement 


'Assignment  or  procedure  call"); 

--  if  bypass(token  assignment) 


—  if  name  statement 


end  ASSIGNMENT  OR  PROCEDURE  CALL: 


—  LABEL  — >  <<  identifier  >> 
function  LABEL  return  boolean  is 
begin 

if  (BYPASSfTOKEN  LEFT  BRACKET))  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  RIGHT  BRACKET))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Label"); 

Pnci  if:  —  if  bypassjtoken  right  bracket) 

else 

SYNTAX  ERROR("Label"): 

en(i  *f:  —  if  bypasssftoken  iden 

else 

return  ( F ALSE); 

en<f  if:  —  if  bypass(token  left  bracket) 

end  LABEL; 


—  if  bypasssftoken  identifier) 


-  ENTRY  DECLARATION -  >  entry  identifier  (DISCRETE  RANGE) 

FORMAL  PART  ?'  ; 

function  ENTRY  DECLARATION  return  boolean  is 
beein 

if  (BYPASSfTOKEN  ENTRY))  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  LEFT  PAREN))  then 
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if  (DISCRETE  RANGE)  then 
if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
null; 
else 

SYNTAX  ERROR("Entry  declaration"); 
end  if;  —  if  bypass(token  right  paren) 

else 

SYNTAX  ERROR("Entry  declaration"), 
end  if;  —  if  discrete  range  statement 

end  if;  —  if  bypass(token  left  paren) 

if  (FORMAL  PART)  then 
null; 

end  if;  —  if  formal  part  statement 

if  (BYPASS(TOKENSEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERRORfEntry  declaration"), 
end  if:  —  if  bypass(token  semicolon) 

else 

SYNTAX  ERROR("Entry  declaration"); 
end  if;  —  if  bypass(token  identifier) 

else 

return  (FALSE): 

end  if:  —  if  bypass(token  entry) 

end  ENTRY  DECLARATION; 


-  REPRESENTATION  CLAUSE  ~>  for  NAME  use  record  RECORD  REPRESENTATION  CLAUSE 
->  for  NAME  use  at  "  SIMPLE  EXPRESSION; 
function  REPRESENTATION  CLAUSE  return  boolean  is 
begin 

if  (BYPASS(TOKEN  FOR))  then 
if  (NAME)  then 

if  (BYPASS(TOKEN  USE))  then 
if  (BYPASS(TOKEN  RECORD  STRUCTURE))  then 
if  (RECORD  REPRESENTATION  CLAUSE)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Representation  clause"); 
end  if;  --  if  record  representation  clause 

elsif  (BYPASS(TOKEN  AT))  then 
if  (SIMPLE  EXPRESSION)  then 
if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Representation  clause"); 
end  if:  —  if  bypassjtoken  semicolon) 

else 

SYNTAX  ERROR("Representation  clause"); 
end  if:  —  if  simple  expression  statement 

elsif  (SIMPLE  EXPRESSION)  then 


if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRI  E); 
else 

SYNTAX  ERROR("Representation  clause"): 
end  if;  --  if  bypassftoken  semicolon) 

else 

SYNTAX  ERROR("Representation  clause"); 
end  if;  --  if  bypass(token  record) 

else 

SYNTAX  ERROR("Representation  clause"); 
end  if;  —  if  bypass(token  use) 

else 

SYNTAX  ERROR("Representation  clause"); 
end  if;  —  if  name  statement 

else 

return  (FALSE); 

end  if:  —  if  bypass(token  for) 

end  REPRESENTATION  CLAUSE; 


-  RECORD  REPRESENTATION  CLAUSE  ~>  at  mod  SIMPLE  EXPRESSION  ? 

NAME  at  SIMPLE  EXPRESSION  range  RANGES  * 
end  record  ; 

function  RECORD  REPRESENTATION  CLAUSE  return  boolean  is 
begin 

if  (BYPASS(TOKEN  AT))  then 
if  (BYPASSfTOKEN  MOD))  then 
if  (SIMPLE  EXPRESSION)  then 

null; 

else 

SYNTAX  ERROR("Record  representation  clause"); 
end  if;  —  if  simpleexpression 

else 

SYNTAX  ERROR("Record  representation  clause"); 
end  if;  --  if  bvpass(token  mod) 

end  if;  --  if  bypassftoken  at) 

while  (NAME)  loop 
if  |BYPASS(TOKEN  AT))  then 
if  (SIMPLE  EXPRESSION)  then 
if  (BYPASS(TOKEN  RANGE))  then 
if  (RANGES)  then 
null: 
else 

SYNTAX  ERROR("Record  representation  clause"); 
end  if:  —  if  ranges  statement 

else 

SYNTAX  ERROR("Record  representation  clause"): 
end  if:  —  if  bypassftoken  range) 

else 

SYNTAX  ERRORf'Record  representation  clause"); 
end  if:  -■  if  simple  expression 


else 

SYNTAX  ERROR( "Record  representation  clause"), 
end  if:  —  if  bypass(token  at) 

end  loop; 

if  (BYPASS(TOKEN  END))  then 
if  (BYPASS(TOKEN  RECORD  STRUCTURE))  then 
if  (BYPASSjTOKEN  SEMICOLON))  then 
return  (TRIE): 
else 

SYNTAX  ERROR("Record  representation  clause"), 
end  if:  -- if  bvpass(token  semicolon) 

else 

SYNTAX  ERROR("Record  representation  clause"): 
end  if:  —  if  bypassjtoken  record  structure) 

else 

return  (FALSE): 

end  if:  --  if  bypass(token  end) 

end  RECORD  REPRESENTATION  CLAUSE; 

end  PARSER  2; 


-  TITLE:  AN  ADA  SOFTWARE  METRIC 

-  MODULE  NAME:  PACKAGE  PARSER  3 

-  DATE  CREATED:  22  JUL  86 

-  LAST  MODIFIED  30  MAY  87 

-  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S  FAIRBANKS,  JR. 

LCDR  PAUL  M  HERZIG 

-  DESCRIPTION:  This  package  contains  thirty-five  functions 

that  make  up  the  baseline  productions  for  our  top-down, 
recursive  descent  parser.  Each  function  is  preceded 
by  the  grammar  productions  they  are  implementing. 


with  PARSER  4.  HENRY  GLOBAL.  HENRY,  BYPASS  FUNCTION,  HALSTEAD  METRIC, 
GLOBAL  PARSER.  GLOBAL,  TEXT  IO; 

use  PARSER  4.  HENRY  GLOBAL,  HENRY.  BYPASS  FUNCTION.  HALSTEAD  METRIC. 
GLOBAL  PARSER,  GLOBAL,  TEXT  JO: 

package  PARSER  3  is 

function  SUBTYPE  INDICATION  return  boolean: 

function  ARRAY  TYPE  DEFINITION  return  boolean: 

function  CHOICE  return  boolean; 

function  ITERATION  SCHEME  return  boolean; 

function  LOOP  PARAMETER  SPECIFICATION  return  boolean; 


function  EXPRESSION  return  boolean; 

function  RELATION  return  boolean; 

function  RELATION  TAIL  return  boolean; 

function  SIMPLE  EXPRESSION  return  boolean; 

function  SIMPLE  EXPRESSION  TAIL  return  boolean; 

function  TERM  return  boolean; 

function  FACTOR  return  boolean; 

function  PRIMARY  return  boolean. 

function  CONSTRAINT  return  boolean; 

function  FLOATING  OR  FIXED  POINT  CONSTRAINT  return  boolean; 
function  INDEX  CONSTRAINT  return  boolean; 
function  RANGES  return  boolean; 
function  AGGREGATE  return  boolean; 
function  COMPONENT  ASSOCIATION  return  boolean 
function  ALLOCATOR  return  boolean, 
function  NAME  return  boolean; 
function  NAME  TAIL  return  boolean; 
function  LEFT  PAREN  NAME  TAIL  return  boolean; 
function  ATTRiBLTE  DESIGNATOR  return  boolean; 
function  INTEGER  TYPE  DEFINITION  return  boolean; 
function  DISCRETE  RANGE  return  boolean; 
function  EXIT  STATEMENT  return  boolean; 
function  RETl  RN  STATEMENT  return  boolean; 
function  GOTO  STATEMENT  return  boolean; 
function  DELAY  STATEMENT  return  boolean; 
function  ABORT  STATEMENT  return  boolean; 
function  RAISE  STATEMENT  return  boolean; 
end  PARSER  3; 


package  K,dy  PARSER  3  is 


--  SUBTYPE  INDICATION  ~>  NAME  CONSTRAINT'7 
function  SL  BT\  PE  INDICATION  return  boolean  is 
begin 

if  (NAME)  then  —  check  for  type  mark 

if  (CONSTRAINT)  then 
null; 
end  if; 

return  (TREE); 
else 

return  (FALSE); 
end  if; 

end  SUBTYPE  INDICATION; 


-  ARRAY  TYPE  DEFINITION  -  •  (INDEX  CONSTR  AINT  of  SUBTYPE  INDICATION 

--  this  function  parses  both  constratned  and  unconstrained  arrays 
function  ARRAY  TYPE  DEFINITION  return  boolean  is 
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begin 

if  (BYPASS(TOKEN  LEFT  PAREN))  then 
if  (INDEX  CONSTRAINT)  then 
if  (BYPASS! TOKEN  OF))  then 
if  (SUBTYPE  INDICATION)  then 
return  (TRUE); 
else 

S\  NTAX  ERRORf'Array  definition"): 
end  if;  —  if  subtype  indication 

else 

S\  NT  AX  ERROR("Array  definition"); 
end  if:  —  if  bypassftoken  of) 

else 

S\  NTAX  ERROR("Array  definition"); 
end  if:  --  if  index  constraint  statement 

else 

return  (FALSE); 

end  if:  --  if  bypassftoken  left  paren) 

end  ARRAY  TYPE  DEFINITION; 


K; 
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-  CHOICE ->  EXPRESSION  SIMPLE  EXPRESSION  ? 
EXPRESSION  CONSTRAINT  ? 

—  >  others 

function  CHOICE  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  (BA  PASS  (TOKEN  R  ANG  E  DOTS))  then  --  check  for  discrete  range 

if  (SIMPLE  EXPRESSION)  then 

null: 

else 

SYNTAX  ERROR("Choice"): 

end  if:  —  if  simple  expression  statement 

elsif  (CONSTRAINT)  then 
null: 

end  ‘f:  —  if  bypass  token  range  dots 

return  (TRUE); 

elsif  (BYPASS(TOKEN  OTHERS})  then 
return  (TRUE); 
else 

return  (FALSE); 
end  if; 

end  CHOICE; 


rv 

Yi 


-ITERATION  SCHEME-  while  EXPRESSION 

for  LOOP  PARAMETER  SPECIFICATION 
function  ITERATION  SCHEME  return  boolean  is 
begin 

if  (BYP ASS(TOKEN  WHILE))  then 
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NESTING  METRIC(\VHILE  CONSTRICT): 
if  (EXPRESSION)  then 
return  (TRUE): 
else 

SYNTAX  ERROR("Iteration  scheme"), 
end  if: 

elsif  (BYPASSfTOKEN  FOR))  then 
NESTING  \1ETRIC(F0R  CONSTRUCT); 
if  (LOOP  PARAMETER  SPECIFICATION)  then 
return  (TRUE); 
else 

SYNTAX  ERROR("Iteration  scheme"); 
end  if: 
else 

return  (FALSE), 
end  if: 

end  ITERATION  SCHEME; 


-  LOOP  PARAMETER  SPECIFICATION ->  identifier  in  reverse"  DISCRETE  RANGE 
function  LOOP  PARAMETER  SPECIFICATION  return  boolean  is 
begin 

if  (BYPASS) TOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  IN))  then 
if  (BYPASSfTOKEN  REVERSE))  then 

null; 

end  if:  --  if  bypassjtoken  reverse) 

if  (DISCRETE  RANGE)  then' 
return  (TRUE); 
else 

SYNTAX  ERROR("Loop  parameter  specification"); 
end  if:  —  if  discrete  range  statement 

else 

SYNTAX  ERROR("Loop  parameter  specification"); 
end  if:  —  if  bvpass(token  in) 

else 

return  (FALSE): 

end  if:  —  iT  bypassjtoken  identifier) 

end  LOOP  PARAMETER  SPECIFICATION: 


-  EXPRESSION  ~>  RELATION  RELATION  TAIL  ? 
function  EXPRESSION  return  boolean  is 
begin 

if  (RELATION)  then 
if  (RELATION  TAIL)  then 
null: 

end  if:  —  if  relation  tail  statement 

return  (TRUE); 

else 
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return  (FALSE); 
end  if; 

end  EXPRESSION; 


if  relation  statement 


-RELATION-  -  SIMPLE  EXPRESSION  SIMPLE  EXPRESSION  TAIL 
function  RELATION  return  boolean  is 
begin 

if  (SIMPLE  EXPRESSION)  then 
if  (SIMPLE  EXPRESSION  TAIL)  then 
null; 

end  if:  —  if  simpleexpression  tail  statement 

return  (TRUE): 

else 

return  (FALSE) 

end  if:  —  if  simple  expression  statement 

end  RELATION: 


--  if  bypass(token  then) 


—  if  not  relation  statement 


-  RELATION  TAIL  and  then  "  RELATION  * 

->  or  else  9  RELATION  * 

~>  xor  RELATION  * 
function  RELATION  TAIL  return  boolean  is 
begin 

while  (BYPASS (TOKEN  AND))  loop 
if  (BYPASS(TOKEN  THEN))  then 
null; 
end  if; 

if  not  (RELATION)  then 
SYNTAX  ERR  OR  ("Relation  tail") 
end  if: 
end  loop: 

While  (BYPASSfTOKEN  OR))  loop 
if  (BYPASSfTOKEN  ELSE))  then 
null: 
end  if: 

if  not  (RELATION)  then 
SYNTAX  ERRORf' Relation  tail") 
end  if: 
end  loop, 

while  (BYPASSfTOKEN  XOR))  loop 
if  not  (RELATION)  th~n 
SYNTAX  ERROR  ("Relation  tail"): 
end  if;  —  if  not  relation  statement 

end  loop; 

ret  urn  (TRI  E): 
end  RELATION  TAIL; 


if  bypass(loken  else) 


—  if  not  relation  statement 
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-  SIMPLE  EXPRESSION  ~>  -  ?’  TERM  BINARY  ADDING  OPERATOR  TERM  - 

~>  -?  TERM  BINARY  ADDING  OPERATOR  TERM* 
function  SIMPLE  EXPRESSION  return  boolean  is 
begin 

if  (BYPASS(TOKEN  PLUS)  or  BYPASSfTOKEN  MINUS))  then 
if  (TERM)  then 

while  (BINARY  ADDING  OPERATOR)  loop 
if  not  (TERM)  then 

SYNTAX  ERROR( "Simple  expression"): 
end  if;  --  if  not  term  statement 

end  loop: 
return  (TRUE); 
else 

SYNTAX  ERROR("Simple  expression"); 
end  if;  —  if  term  statement 

elsif  (TERM)  then 

while  (BINARY  ADDING  OPERATOR)  loop 
if  not  (TERM)  then 

SYNTAX  ERROR("Simple  expression"); 
end  if;  —  if  not  term  statement 

end  loop: 
return  (TRUE): 
else 

return  (FALSE): 

end  if:  —  if  bypass(token  plus)  et  a!  statement 

end  SIMPLE  EXPRESSION: 


-SIMPLE  EXPRESSION  TAIL  RELATIONAL  OPERATOR  SIMPLE  EXPRESSION 

—  >  [not  ?  in  RANGES 

—  >  [not  ?[  in  NAME 

function  SIMPLE  EXPRESSION  TAIL  return  boolean  is 
begin 

if  (RELATIONAL  OPERATOR)  then 
if  (SIMPLE  EXPRESSION)  then 
return  (TRUE); 

else 

SYNTAX  ERROR("Simple  expression  tail"); 
end  if;  —  if  simple  expression  st  atement 

elsif  (BYPASSfTOKEN  NOT))  then 
if  (BYPASSfTOKEN  IN))  then 
if  (RANGES)  then 
return  (TRUE): 

elsif  (NAME)  then  —  check  for  type  mark 

ret  urn  (TRUE): 

e|sp 

SYNTAX  ERROR) "Sim pie  expression  tail"): 
end  if;  —  if  ranges  statement 

else 

SYNTAX  ERROR("Simple  expression  tail"): 
end  if;  —  if  bvpassjtoken  in)  statement 


els  if  (BYPASS(TOKEN  IN))  then 
if  (RANGES)  then 
return  (TRIE): 

elsif  (NAME)  then  —  check  for  type  mark 

return  (TRIE); 
else 

SYNTAX  ERROR("Simple  expression  tail"); 
end  if:  —  if  ranges  statement 

else 

return  (FALSE): 

end  if:  —  if  relationaloperator  statement 

end  SIMPLE  EXPRESSION  TAIL: 


--  TERM  ->  FACTOR  MULTIPLYING  OPERATOR  FACTOR  * 
function  TERM  return  boolean  is 
begin 

if  (FACTOR)  then 

while  (MULTIPLYING  OPERATOR)  loop 
if  not  (FACTOR)  then 
SYNTAX  ERROR("Term"); 
end  if:  —  if  not  factor  statement 

end  loop; 
return  (TRIE): 

else 

return  (FALSE): 

end  if:  —  if  factor  statement 

end  TERM: 


-  FACTOR  -  *  PRIMARY  **  PRIMARY  ? 

-  ■  abs  PRIMARY 

-  >  not  PRIMARY 
function  FACTOR  return  boolean  is 
begin 

if  (PRIMARY)  then 

if  (BYPASSfTOKEN  EXPONENT))  then 
if  (PRIMARY)  then 
null: 
else 

SYNTAX  ERROR("Factor"): 
end  if:  —  if  primary  statement 

end  if:  —  if  bypassjtoken  exponent)  statement 

return  (TRI  E): 

elsif  (BYPASSfTOKEN  ABSOLUTE))  then 
if  (PRIMARY)  then 
ret  urn  (TRI  E): 

else 

SYNTAX  ERROR("Factor"): 
end  if.  --  if  primary(abs)  statement 
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elsif  (BVPASSjTOKEN  NOT))  then 
if  (PRIMARY)  then 
return  (TRI  E); 

else 

SYNTAX  ERRORf'Factor"): 
end  if.  —  if  primary(not)  statement 

else 

return  (FALSE): 

end  if;  —  if  primary  statement 

end  FACTOR: 


--  PRIMARY  —  >  numeric  literal 

—  >  null 

—  •  string  literal 

~>  new  AlLOCATOR 

..  >  NAME 
-  AGGREGATE 
function  PRIMARY  return  boolean  is 
begin 

HENRY  WRITE  ENABLE  -  TREE; 
if  (BYPASS(TOKEN  NUMERIC  LITERAL))  then 
WRITE  HENRY  DAT  A  (BLANK.  DUMMY  LEXEME.  IDENT  TYPE.  NONE.  LAST  RECORD) 
return  (TRIE): 

elsif  (BYPASSfTOKEN  NULL))  then 
return  (TRUE): 

elsif  (BYPASS(TOKEN  STRING  LITERAL))  then 
WRITE  HENRY  DATAfBLANK  DUMMY  LEXEME.  IDENT  TYPE.  NONE.  LAST  RECORD) 
return  (TRUE): 

elsif  (BYPASS(TOKEN  NEW))  then 
if  (  ALLOCATOR)  then 
return  (TRUE); 
else 

SYNTAX  ERRORC’Pnmary"). 
end  if:  —  if  allocator  statement 

elsif  (NAME)  then 
return  (TRUE); 
elsif  (AGGREGATE)  then 
return  (TREE): 
else 

return  (FALSE): 

end  if;  —  if  bypass) token  left  paren] 

end  PRIMARY: 


--  CONSTRAINT  --  >  range  RANGES 

-  -  range  «•  > 

-■  digits  FLOATING  OR  FIXED  POINT  CONSTRAINT 

-  delta  FLOATING  OR  FIXED  POINT  CONSTRAINT 

-  (INDEX  CONSTRAINT 


function  CONSTRAINT  return  boolean  is 
begin 

if  (BVPASS)TOKEN  RANGE))  then 
if  (RANGES)  then 
return  (TREE); 

elsif  (BYPASS(TOKEN  BRACKETS))  then 
ret  urn  (TR  L’E); 


--  check  for  c  >  when  parsing 
an  unconstrained  array 


SYNTAX  ERROR("Constraint"): 
end  if:  —  if  ranges  statement 

elsif  (BYPASSjTOKEN  DIGITS))  or  else  (BYPASS|TOKEN  DELTA))  then 
if  (FLOATING  OR  FIXED  POINT  CONSTRAINT)  then 
return  (TRUE); 
else 

SYNTAX  ERROR(  "Constraint"): 
end  if; 

elsif  (BYPASSjTOKEN  LEFT  PAREN))  then 
if  (INDEX  CONSTRAINT)  then 
return  (TRI  E), 
else 

S\  NT  AX  ERROR!  "Constraint"); 
end  if: 
else 

return  (FALSE); 
end  if: 

end  CONSTRAINT; 


-FLOATING  OR  FIXED  POINT  CONSTRAINT  -  >  SIMPLE  EXPRESSION  range  RANGES 
function  FLOATING/ OR  FIXED  POINT  CONSTRAINT  return  boolean  is 
begin 

if  (SIMPLE  EXPRESSION)  then 
if  (BYPASSfTOKEN  RANGE))  then 
if  (RANGES)  then 


S\  NT  AX  ERROR("Floating  or  fixed  point  constraint"); 
end  if  --  if  ranges  statement 

end  if:  —  if  by pass(token  range) 

return  (TRI  E); 


return  (F  ALSE) 

■rid  if. 


end  if:  —  if  simple  expression  statement 

-tid  FLOATING  OR  FIXED  POINT  CONSTRAINT; 


-INDEX  CONSTRAINT-  DISCRETE  RANGE  DISCRETE  RANGE  ’ 
fuii' lion  INDEX  CONS  TR  AINT  return  boolean  is 
begin 

if  (DISCRETE  RANGE)  then 


while  (BYPASS(TOKEN  COMMA))  loop 
if  not  (DISCRETE  RANGE)  then 
S’!  NT  AX  ERROR("Index  constraint"); 
end  if;  --  if  not  discrete  range 

end  loop: 

if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
return  (TRIE); 
else 

S\  NTAX  ERROR("Index  constraint"): 

en<f  if:  --  if  bypass(token  right  paren) 

else 

return  (FALSE); 

efid  'f;  —  if  discrete  range  statement 

end  INDEX  CONSTRAINT; 


-RANGES-.  SIMPLE  EXPRESSION  .SIMPLE  EXPRESSION  ? 
function  RANGES  return  boolean  is 
begin 

if  (SIMPLE  EXPRESSION)  then 
if  (BYPASS(TOKEN  RANGE  DOTS))  then 
if  (SIMPLE  EXPRESSION)  then 


SYNTAX  ERRORf'Ranges"): 
pn<l  if:  —  if  simple  expression  statement 

Pnd  if:  —  if  bypassftoken  range  dots) 

return  (TRI  E); 


return  (FALSE): 
end  if 

end  RANGES: 


—  if  simple  expression  statement 


-  AGGREGATE  -  •  (COMPONENT  ASSOCIATION  .COMPONENT  VSSOCIATION 
funct  ion  AGGREGATE  return  boolean  is 
begin 

if  (BYPASS(TOKEN  LEFT  PAREN))  then 
if  (COMPONENT  ASSOCIATION)  then 
while  (BYPASS(TOKEN  COMMA))  loop 
if  not  (COMPONENT  ASSOCIATION)  then 
S\  NTAX  ERROR("Aggregate”); 
rn<l  if:  --  if  not  component  association 

end  loop; 

if  (HYPASS(TOKEN  RIGHT  PAREN))  then 
return  (TREE): 


SYNTAX  ERROR(" Aggregate") 
end  if, 

dse 


—  if  bypas'dtoken  right  paren) 
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--  if  component  association  statement 


SYNTAX  ERROR ('' Aggregate"); 
end  if. 
else 

return  (FALSE): 
end  if:  —  if  bypass(token  left  paren) 

end  AGGREGATE. 


--  COMPONENT  ASSOCIATION  CHOICE  CHOICE*  •  ?  EXPRESSION 
function  COMPONENT  ASSOCIATION  return  boolean  is 
begin 

if  (CHOICE)  then 

while  (BYPASSfTOKEN  BAR))  loop 
if  not  (CHOICE)  then 

SYNTAX  ERRORfComponent  asociation"); 
end  if: 
end  loop; 

if  (BYPASSfTOKEN  ARROW))  then 
if  (EXPRESSION)  then 
null: 

else 

SYNTAX  ER ROR ("Component  asociation"); 
end  if:  --  if  expression  statement 

end  if;  —  if  bypassjtoken  arrow  ) 

return  (TREE): 

else 

return  (FALSE): 

end  if.  --  if  choice  statement 

end  COMPONENT  ASSOCIATION; 


-  ALLOCATOR  -  SEBTYPE  INDICATION  'AGGREGATE  ? 
function  ALLOCATOR  return  boolean  is 
begin 

if  (SEBTYPE  INDICATION)  then 
if  (BYPASSjTOKEN  APOSTROPHE))  then 
if  (AGGREGATE)  then 
null: 

e  |sc 

SYNTAX  ERROR  ("Allocator") 
end  if  —  if  aggregate  statement 

end  if.  —  if  bypassftoken  apostrophe) 

ret  urn  ( TR  l  E): 

•'  \  s<> 

r<  t  urn  (  F  \  LSE ) : 

end  if  —  if  subtype  indication  statement 

m  l  ALLOCATOR: 
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--  NAME  —  >  identifier  NAME  TAIL  ? 

—  ■  character  literal  NAME  TAIL  9 

—  •  string  literal  NAME  TAIL  ? 
funclion  NAME  return  boolean  ts 


begin 

put(result  file,  "in  name"):  new  line(result  file); 
tf  (BVPASS(TOKEN  IDENTIFIER))  then 
NAME  POINTER  -  LAST  RECORD, 
if  (NAME  TAIL)  then 
null: 
end  if; 

return  (TRUE); 

HENRY  VVRITE  ENABLE  :-=  TRUE, 
elsif  (BYPASS(TOKEN  CHARACTER  LITERAL))  then 
if  (NAME  TAIL)  then 
null; 
end  if; 

return  (TRUE): 

elsif  (BYPASS(TOKEN  STRING  LITERAL))  then 
if  (NAME  TAIL)  then 
null; 
end  if: 

return  (TRUE): 
else 

return  (FALSE); 
end  if: 
end  NAME: 


-  NAME  TAIL  —  >  (LEFT  PAREN  NAME  TAIL 
~>  SELECTOR  NAME  TAIL* 

-->  AGGREGATE  NAME  TAIL  * 

->  ATTRIBUTE  DESIGNATOR  NAME  TAIL  * 
function  NAME  TAIL  return  boolean  is 
begin 

put  (result  file,  "in  name  tail"):  new  linefresult  file): 

if  (BYPASSfTOKEN  LEFT  PAREN))  then 
NAME  TAIL  SET  TRUE. 

HENRY  WRITE  ENABLE  TRUE: 
if  ASSIGN  STATEMENT  then 

WRITE  HENRY  DAT  A  ( BLANK.  DUMMY  LEXEME.  Fl'NCALL  OR  DS. 
NONE.  NAME  POINTER): 

else  WRITE  HENRY  I)ATA(BL.ANK.  DUMMY  LEXEME.  PROCALL  OR  DS. 
NONE.  NAME  POINTER): 

end  if: 

if  (LEFT  PAREN  NAME  TAIL)  then 
ret  urn  (TR  I  E). 

else 

ret  urn  I  FALSE): 
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end  if:  —  if  left  paren  name  tail 

elsif  (BYPASS(TOKEN  PERIOD))  then 
if  (SELECTOR)  then  * 
while  (NAME  TAIL)  loop 
null: 

end  loop: 
return  (TRl'E); 
else 

SYNTAX  ERRORf’Name  tail"): 
end  if;  —  if  selector  statement 

elsif  (BYPASSfTOKEN  APOSTROPHE))  then 
if  (AGGREGATE)  then 
while  (NAME  TAIL)  loop 
null; 

end  loop, 
return  (TRUE); 

elsif  (ATTRIBUTE  DESIGNATOR)  then 
while  (NAME  TAIL)  loop 
null: 

end  loop: 
return  (TRUE); 
else 

SYNTAX  ERROR("Name  tail"); 
end  if:  —  if  aggregate  statement 

else 

return  (FALSE); 

end  if;  -•  if  bypassftoken  left  paren) 

end  NAME  TAIL: 


-LEFT  PAREN  NAME  TAIL ->  FORMAL  PARAMETER  ?  EXPRESSION  EXPRESSION  ? 

FORMAL  PARAMETER  ?  EXPRESSION  EXPRESSION  ?  * 

)  NAME  TAIL* 

function  LEFT  PAREN  NAME  TAIL  return  boolean  is 
begin 

putfresult  file,  "in  left  paren  name  tail");  new  line(result  file); 
if  (FORMAL  PARAMETER)  then  —  check  for  optional  formal  parameter 

null:  —  before  the  actual  parameter 

end  if;  —  if  formal  parameter  statement 

HENRY  WRITE  ENABLE  TRUE: 
if  (EXPRESSION)  then 
if  NAME  TAIL  SET  then 

WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME,  PARAM  TYPE,  ACTUAL  PARAM. 
LAST  RECORD); 

end  if: 

if  (BYPASS(TOKEN  RANGE  DOTS))  then 
if  not  (EXPRESSION)  then 
SYNTAX  ERRORf'Left  paren  name  tail"): 
end  if:  —  if  not  expression  statement 

end  if;  —  if  bypassftoken  range  dots) 

while  (BYPASS(TOKEN  COMMA))  loop 
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if  (FORMAL  PARAMETER)  then 
null: 

end  if;  --  if  formal  parameter  statement 

HENRY  WRITE  ENABLE  TRUE; 
if  not  (EXPRESSION)  then 
SYNTAX  ERROR("Left  paren  name  tail"); 
end  if;  —  if  not  expression  statement 

if  (BYPASS(TOKEN  RANGE  DOTS))  then 
if  not  (EXPRESSION)  then 
SYNTAX  ERRORfLeft  paren  name  tail"); 
end  if;  --  if  not  expression  statement 

end  if;  —  if  bypass(token  range  dots) 

if  NAME  TAIL  SET  then 

WRITE  HENRY  DATAfBLANK,  DUMMY  LEXEME.  PARAM  TYPE.  ACTUAL  PARAM. 
LAST' RECORD); 

end  if; 
end  loop; 

if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
WRITE  HENRY  DATA(BLANK,  DUMMY  LEXEME.  END  ACTUAL  PARAM, 

ACTUAL  PARAM.  NEXT  HEN), 

CREATE  NODEfNEXT  HEN.  LAST  RECORD); 

NAME  TAIL  SET  ;-■=  FALSE; 
while  (NAME  TAIL)  loop 
null; 

end  loop, 
return  (TRUE), 
else 

return  (FALSE); 

end  if:  —  if  bypass(token  right  paren) 

elsif  (DISCRETE  RANGE)  then 
if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
while  (NAME  TAIL)  LOOP 
NULL: 

END  LOOP. 

RETURN  (TRUE); 
else 

SYNTAX  ERROR("Left  paren  name  tail"); 
end  if; 
else 

return  (FALSE); 

end  if:  —  if  bypass(token  right  paren) 

end  LEFT  PAREN  NAME  TAIL; 


-  ATTRIBUTE  DESIGNATOR  identifier  (EXPRESSION)  ? 

range  (EXPRESSION)  ’ 

-  -  digits  (EXPRESSION)  ? 

-  >  delta  (EXPRESSION)  ? 
funetion  ATTRIBUTE  DESIGNATOR  return  boolean  is 
begin 

if  (BYPASS(TOKEN  IDENTIFIER))  or  else  (BYPASS(TOKEN  RANGE))  then 
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if  (BVPASS(TOKEN  LEFT  PAREN))  then 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  RIGHT  PAREN))  then 
null, 
else 

SYNTAX  ERROR(" Attribute  designator"); 
end  if;  --  if  bypass(token  right  paren)  statement 

else 

SYNTAX  ERROR("Attribute  designator"); 
end  if:  —  if  expression  statement 

end  if.  —  if  bypassjtoken  left  paren)  statement 

return  (TRUE); 

elsif  (BYPASS(TOKEN  DIGITS))  or  else  (BYPASS(TOKEN  DELTA))  then 
if  (BYPASSfTOKEN  LEFT  PAREN))  then 
if  (EXPRESSION)  then 
if  (BYPASS(TOKEN  RIGHT  PAREN))  then 


SYNTAX  ERROR(" \ttribute  designator"); 
end  if;  -  .i  bypass(token  right  paren)  statement 

else 

SYNTAX  ERROR(" Attribute  designator"); 
end  if;  —  if  expression  statement 

end  if;  —  if  bypass(token  left  paren)  statement 

return  (TRUE); 
else 

return  (FALSE); 

end  if:  —  if  bypass(token  identifier)  statement 

end  ATTRIBUTE  DESIGNATOR; 


-INTEGER  TYPE  DEFINITION  -  >  range  RANGES 
function  INTEGER  TYPE  DEFINITION  return  boolean  is 
begin 

if  (BYPASSfTOKEN  RANGE))  then 
if  (R  ANGES)  then 
return  (TRUE): 

else 

SYNTAX  ERRORf'Integer  type  definition"); 
end  if. 
else 

return  (FALSE): 
end  if: 

end  INTEGER  TYPE  DEFINITION: 


--  DISCRETE  RANGE--  RANGES  CONSTRAINT” 
function  DISCRETE  RANGE  return  boolean  is 
begin 

if  (RANGES)  then 


--  if  constraint  statement 
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if  (CONSTRAINT)  then 
null; 
end  if; 

ret  urn  (TR IE); 
else 

return  (FALSE); 
end  if; 

end  DISCRETE  RANGE; 


—  if  ranges  statement 


-  EXIT  STATEMENT  — >  NAME  ?  when  EXPRESSION  9 
function  EXIT  STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 
null: 

end  if;  ..  if  name  statement 

if  (BYPASS(TOKEN  WHEN))  then 
if  (EXPRESSION)  then 


SYNTAX  ERROR("Exit  statement"): 
end  if;  -  if  expression  statement 

end  if;  —  if  bypassjtoken  when) 

if  (BY  PASSITOKEN  SEMICOLON))  then 
return  (TRI  E); 


return  (FALSE) 
end  if: 


end  EXIT  STATEMENT: 


--  if  bypassjtoken  semicolon) 


-  RETURN  STATEMENT-  EXPRESSION  ° 
function  RET!  RN  STATEMENT  return  boolean  is 
begin 

if  (EXPRESSION)  then 
null; 
end  if: 

if  (BYPASS(TOKEN  SEMICOLON))  then 
return  (TRUE); 

else 

return  ( F A L S FI ) ; 
end  if: 

end  RETURN  STATEMENT 


-  GOTO  STATEMENT  -  NAME  : 
function  (iOTO  ST  A  I  EMENT  return  boolean  is 
begin 

if  (NAME)  then 


if  (BYPASSfTOKEN  SEMICOLON))  (hen 
return  (TRI  E): 

else 

SYNTAX  ERROR("Goto  statement"); 
end  if;  —  if  bypass(token  semicolon) 

else 

return  (FALSE); 

end  if:  —  if  name  statement 

end  GOTO  STATEMENT; 


-  DELAY  STATEMENT  ~>  SIMPLE  EXPRESSION  ; 
function  DELAY  STATEMENT  return  boolean  is 
begin 

if  (SIMPLE  EXPRESSION)  then 
if  (BYPASSfTOKEN  SEMICOLON))  then 
return  (TRI  E): 

else 

SYNTAX  ERROR("Delay  statement"); 
end  if:  --  if  bypass(token  semicolon) 

else 

return  (FALSE): 

end  if:  —  if  simple  expression  statement 

end  DELAY  STATEMENT; 


-  ABORT  STATEMENT  -  -  NAME  .  NAME  *  : 
function  ABORT  STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 

vshile  (BYPASSfTOKEN  COMMA))  loop 
if  not  ( N AME)  then 

SYNTAX  ERKOR(”Abort  statement"); 
end  if;  —  if  not  name  statement 

end  loop; 

if  (BYPASSfTOKEN  SEMICOLON))  then 
ret  urn  (TRI  E): 

else 

SYNTAX  ERROR  ("Abort  statement"); 
end  if.  —  if  bypass(loken  semicolon) 

p|s** 

return  (FALSE); 
end  if. 

end  ABORT  STATEMENT 


--  if  name  -t  nt  emenl 
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DESCRIPTION  This  package  contains  seven  functions  thal 
are  the  lowest  level  productions  for  our  top-down, 
recursive  descent  parser.  Each  function  is  preceded 
by  the  grammar  productions  they  are  implementing 


with  BYPASS  Ft  NOTION,  BYPASS  SUPPORT  FUNCTIONS.  GLOBAL  PARSER.  GLOBAL.  TEXT  I 
use  BYPASS  FUNCTION.  BYPASS  SUPPORT  FUNCTIONS.  GLOBAL  PARSER  GLOBAL.  TEXT  K 

package  PARSER  4  is 

function  Ml  LTIPLV  INC  OPERATOR  return  boolean, 
function  BINARY  ADDING  OPERATOR  return  boolean 
function  RELATIONAL  OPERATOR  return  boolean: 
function  ENUMERATION  TYPE  DEFINITION  return  boolean; 
function  ENUMERATION  LITERAL  return  boolean, 
function  FORMAL  PARAMETER  return  boolean: 
function  SELECTOR  return  boolean: 
end  PARSER  4. 


package  body  PARSER  4  is 


m 


-  MULTIPLYING  OPERATOR-- :> 


--  -  mod 
—  >  rein 

function  Ml  l. IMPLYING  OPERATOR  return  boolean  is 
begin 

putfRESULT  FILE.  "In  multiplying  operator");  new  linefRESULT  FILE): 
if  (BYPASSfTOKEN  ASTERISK))  then 
return  (TRI  E); 

elsif  (BYPASSfTOKEN  SLASH))  then 
return  (TRl  E): 

elsif  (BYPASS(TOKEN  MOD))  then 
return  (TRUE): 

elsif  (BYPASSfTOKEN  REM))  then 
return  (TRI  E): 
else 

return  (FALSE): 
end  if: 

end  MULTIPLYING  OPERATOR; 


-BINARY  ADDING  OPERATOR  ~>  - 

...  £• 

function  BINARY  ADDING  OPERATOR  return  boolean  is 
begin 

putfRESULT  FILE.  "In  binary  adding  operator  ");  new  line(RESUI.T  FILE) 
if  (BYPASSfTOKEN  PLUS))  then 
ret  urn  (TR  UE); 

elsif  (BYPASSfTOKEN  MINUS))  then 
return  (TRUE); 

elsif  (BYPASSfTOKEN  AMPERSAND))  then 
return  (TRl  E); 
else 

ret  urn  (  f  A  LSE) ; 
end  if. 

end  BINARY  ADDING  OPERATOR: 


-  RELATIONAL  OPERATOR  -- 


function  RELATIONAL  OPERATOR  return  boolean  is 
begin 

putfRESULT  FILE.  "In  relational  operator  ");  new  lme(  R  ESUI.T  PILE) 
if  |  BYPASSfTOKEN  EQUALS))  then 
ret  urn  (TRUE): 
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elsif  (BYPASSjTOKEN  NOT  EQUALS))  then 
return  (TRI  E): 

elsif  (BY  PASS  (TOKEN  LESS  THAN))  then 
return  (TREE): 

elsif  (BYPASS(TOKEN  LESS  THAN  EQUALS))  then 
ret  urn  (TR  l  E); 

elsif  (BYPASS(TOKEN  GREATER  THAN))  then 
return  (TRUE); 

elsif  (BYPASS(TOKEN  GREATER  THAN  EQUALS))  then 
return  (TRUE) 
else 

return  (FALSE); 
end  if. 

end  RELATIONAL  OPERATOR; 


-ENUMERATION  TYPE  DEFINITION ->  (ENUMERATION  LITERAL 

.  ENUMERATION  LITERAL  *) 

function  ENUMERATION  TYPE  DEFINITION  return  boolean  is 
begin 

put(RESL"LT  FILE.  "In  enumeration  type  definition  ");  new  line(RESl  LT  FILE) 
if  (BYPASS(TOKEN  LEFT  PAREN})  then 
HENRY  WRITE  ENABLE  ;=  TRUE: 
if  (ENUMERATION  LITERAL)  then 
while  |BYPASS(TOKEN  COMMA))  loop 
HENRY  WRITE  ENABLE  TRUE; 
if  not  (ENUMERATION  LITERAL)  then 
SYNTAX  ERRORC'Enumeration  type  definition"); 
end  if;  —  if  not  enumeration  literal 

end  loop: 

if  (BYPASSjTOKEN  RIGHT  PAREN))  then 
return  (TRL  E): 

else 

SYNTAX  ERROR ( ''Enum 'rat ion  type  definition"): 
end  if;  —  if  by pass(token  right  paren) 

else 

SYNTAX  ERRORC'Enumeration  type  definition"); 
end  if.  —  if  enumeration  literal  statement 


return  (FALSE): 

end  if:  —  if  by  pass) token  left  paren) 

end  ENUMERATION  TYPE  DEFINITION: 


-ENUMERATION  LITERAL-  identifier 
—  •  character  literal 

function  ENUMERATION  LITERAL  return  boolean  is 

begin 

putlRHSULT  FILE.  "In  enumeration  literal  ");  new  lme(RESI  LT  FILE); 
if  I  BYPASS(TOKEN  IDENTIFIER))  then 
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as 


return  (TRl  E); 

elsif  (BYPASS(TOKEN  CHARACTER  LITERAL))  then 
return  (TRl  E): 
else 

return  (FALSE), 
end  if: 

end  ENUMERATION  LITERAL; 


-  FORMAL  PARAMETER  identifier  -  > 
function  FORMAL  PARAMETER  return  boolean  is 
begin 

put(RESl"LT  FILE.  ''In  formal  parameter  "):  new  linefRESLLT  FILE); 

LOOK  AHEAD  TOKEN  ;=-  TOKEN  RECORD  BUFFER  (TOKEN  ARRAY  INDEX  -  1) 
if  (  ADJUST  LEXEME(LOOK  AHEAD  TOKEN. LEXEME. 

LOOK  AHEAD  TOKEN  LEXEME  SIZE  -  1)  =  "  =  >")  then 
if  (BYPASSfTOKEN  IDENTIFIER))  then 
if  (BYPASSfTOKEN  ARROW))  then 
return  (TRUE): 
else 

SYNTAX  ERROR("FormaI  parameter”): 
end  if;  --  if  bypass(token  arrow) 

else 

SYNTAX  ER RORf'Formal  parameter"); 
end  if;  —  if  bypassjtoken  identifier) 

else 

return  (FALSE): 
end  if: 

end  FORMAL  PARAMETER; 


--  SELECTOR  -->  identifier 

—  ■  character  literal 

—  >  string  literal 
->  all 

function  SELECTOR  return  boolean  is 
begin 

put  (RESULT  FILE,  "In  selector  "):  new  !ine(RESULT  FILE): 

if  (BYPASSfTOKEN  IDENTIFIER))  then 
return  (TRUE); 

els, f  (BYPASSfTOKEN  CHARACTER  LITERAL))  then 
return  (TRUE); 

elsif  (BYPASSfTOKEN  STRING  LITERAL))  then 
ret  urn  (TRUE): 
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